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ABSTRACT 


The  practicality  of  using  microcomputers  to  solve 
systems  of  equations  of  several  hundred  unknowns  has  been 
demonstrated.  However,  machine  and  software  limitations 
of  eight  bit  processors  made  the  construction  of  useful 
finite  element  programs  very  difficult,  and  severely  limit 
the  size  of  problems  which  could  be  solved  in  a  reasonable 
amount  of  time.  The  introduction  of  the  sixteen  bit  micro 
processor  has  completely  revolutionized  the  microcomputer 
industry,  and  many  of  the  limitations  of  the  eight  bit 
systems  have  been  eliminated.  The  new  microcomputers  have 
made  mainframe-like  computing  power  available  to  everyone, 
at  a  very  reasonable  cost.  For  many  reasons,  however, 
there  are  few  general  finite  element  programs  available 
for  the  microcom.puter  today.  A  general  finite  element 
program  of  m.oderate  complexity  called  MEF  ( "Methode  des 
Elements  Finis")  is  adapted  for  implementation  on  the 
IBM  PC-XT  and  the  COLUMBIA  MPC  microcomputers.  The 
resulting  implementation  is  verified,  and  results  are 
compared  with  other  finite  element  systems. 
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I. 


INTRODUCTION 


A.  BACKGROUND 

The  microcomputer  was  introduced  in  the  marketplace  a 
little  over  a  decade  ago,  and  has  proceeded  to  develop  at 
an  astounding  rate.  The  very  large-scale  integrated  (VLSI) 
microcomputer  of  today  performs  at  speeds  four  to  six  orders 
of  m.agnitude  greater  than  first  generation  computers.  The 
power,  utility  and  versatility  of  these  microcomputers  is 
such  that  their  capability  exceeds  that  of  second  generation 
computers,  and  they  are  as  powerful  as  m.any  minicomputer 
systems  in  a  variety  of  applications.  Indeed,  the  increas¬ 
ing,  capabilities  of  microcom.puters  have  driven  the  latest, 
high-speed  minicomputers  to  attain  the  versatility  and 
performance  standards  of  the  former  medium-scale  mainframe 
computers  [Ref.  1:  pp.  iii-8]. 

Today,  an  unprecedented  amount  of  computing  power  is 
available  at  a  price  which  can  be  afforded  by  even  the 
smallest  of  engineering  firms  and  research  groups.  Two 
years  ago,  research  into  the  implementation  of  finite 
element  software  on  eight  bit  m.icrocomputer s  was  conducted 
by  Muliholland  [Ref.  2]  .  At  that  time,  the  cost  of  the 
com.puter  system  used  for  his  research  was  approximately 
$6,000  [Ref.  2:  p.  15] .  The  cost  of  each  of  the  systems 
used  in  this  r'jsearch  is  about  the  same,  but  there  is 
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hardly  a  comparison  in  capability  between  the  Apple  II  Plus 
used  by  Mulholland,  and  the  IBM  PC-XT  of  today.  The  problem 
today  is  that  there  is  not  a  large  library  of  engineering 
software  available  for  engineering  firms  and  research  groups 
to  take  advantage  of.  Wilson  [Ref.  6]  states  that  less 
than  one  percent  of  current  day  finite  element  analysis  is 
conducted  on  microcomputers.  This  lack  of  software  leaves 
small  firms  and  research  groups  (who  do  not  have  the  staff, 
resources  and  time  to  develop  extensive  program.s  themselves) 
unable  to  take  advantage  of  the  computing  power  available 
to  them.  For  this  reason,  there  is  a  need  to  develop 
engineering  software  which  will  take  advantage  of  the 
microcomputer's  capabilities.  Unfortunately,  at  this  time, 
the  li.mitations  and  capabilities  of  the  software/micro¬ 
computer  combination  are  largely  unexplored.  This  thesis 
will  attem.pt  to  shed  light  on  the  capabilities  of  the 
sixteen  bit  microcomputer  to  perform  general  finite  element 
analysis . 

1 .  Eig.ht  Bit  Mic'os  and  Finite  Elements 

When  first  introduced,  a.icrocomputers  used  an  eight 
bit  architecture  which  provided  several  stumbling  blocks  to 
the  implementation  of  engineering  software  in  general.  The 
most  significant  of  these  stumbling  blocks  was  the  memory 
•Size  limitation,  and  the  second  was  a  limited  instruction 
set.  The  maximum  addressable  memory  of  the-  most  advanced 
of  tiiestj  .^-/sterns  was  65,536  bytes.  This  Kidress  si:ac.:'  was 
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often  limited,  even  further,  by  the  presence  of  read  only 
memory  (ROM)  chips  which  contained  significant  portions 
of  the  operating  system  for  the  computer.  The  result  was 
a  severe  limitation  to  the  size  of  application  software, 
as  well  as  the  size  of  data  objects.  The  instruction  set 
limitation  was  significant  because  it  complicated  the 
implementation  of  high  level  language  compilers,  and  almost 
all  engineering  applications  are  dependent  on  the  avail¬ 
ability  of  high  level  languages.  These  two  problems  com¬ 
bined  to  cause  another  problem  which  was  the  immaturity 
of  support  software.  The  limited  instruction  sets  required 
more  code  to  implement  desired  features,  yet  the  small 
memory  size  restricted  the  amount  of  code  severely.  The 
result  was  that  operating  systems,  compilers,  and  inter¬ 
preters  were  notorious  for  the  things  they  could  not  do. 
Nevertheless,  there  have  been  a  number  of  commercial  as 
well  as  academic  implementations  of  finite  element  codes 
on  eight  bit  microcomputers.  All  of  these  implementations 
are  limited  to  relatively  small  problems,  and  almost  all 
are  special  application  programs  which  solved  only  one 
type  of  problem  (typically  beams,  trusses,  or  frames). 

As  time  progressed,  the  hardware  and  operating  systems 
of  microcomputers  matured.  With  the  advent  of  hiah  speed 
floppy  diskette  drives  and  disk  oreratina  .-ystems,  ‘ 
idea  of  using  out-of-core  linear  ejUc)  1 1  ■..■n.  solv<;rs  ‘  :•.> 

Larger  systems  o:  eouations  on  m  i::  r"  C'*m;  ut .  o  i  >  ■ 
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achievable.  Mulholland  [Ref.  2:  pp .  36-46]  demon  strap  eel 
the  ability  of  eight  bit  machines  to  produce  an  acceptable 
result  using  an  out-of-core  technique.  .^is  might  be 
expected,  solution  times  v/ere  so.me^vhat  slo'-/,  but  the 
method  increased  the  size  of  problem  '.vhich  could  be  solved 
'.•.ith  a  limited  amount  of  memory.  After  verifying  th.e 
utility  of  t.he  eight  bit  machine  a.nd  out-of-core  solver 
combination,  Mulholland  [Ref.  2:  pp.  52-70]  continued  his 
investigation  by  implementing  a  modification  of  .Mallory's 
[Ref.  3]  ST.AP-NPS  on  t.he  Apple-II  Plus  microcomputer. 

T.he  result  v<as  a  finite  element  system,  which  was  cum¬ 
bersome  to  use,  and  supported  only  one  element  type.  The 
system  required  the  attention  of  the  user  to  shift  five 
floppy  diskettes  between  four  disk  drives  in  response  to 
rojquests  fromi  the  run  time  system,.  In  his  tests,  over  two 
r.ours  '.verc  required  to  solve  a  system  of  160  equations 
having  a  ha  1  f -bandwidth  of  64.  .Mulhol land  '  s  conclusion 
]?.of.  2;  pp.  7  2-7  4]  was  that  the  system  he  used  w’as  not  a 
suitable  tool  for  serious  finite  element  work.  Ho  cited 
SIX  prim, ary  reasons  why  the  system  was  inadequate  lor  the 
i:;p  1  1  la  1 1  on ,  but  it  is  significant  to  note  that  five  of 
til-  .1 1 X  r-nsons  wore  actually  operating  sys  tem/cempi  lor 
L  im,  1 ‘r.a  t  i'jm.s  .  In  other  words,  five  ,of  the  six  were  dio 
1';  irmuturity  of  support  softweare  for  tlie  .App<le-II  Plus 
sysi'jm  it  ‘“iis-  tine-. 
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Tiiere  are  v-jry  fov;  nicrccoruyu te r  based  text  editors  which 
will  :''.ar'.e,  le  files  of  that  length,  and  th.e  ones  that  do 
oecoi'ie  tot.illy  bogged  down  with  the  overhead  of  managing 
the  111  It  was  determined  that  the  most  effective  way  to 

proceed  would  bo  compile  approximately-  500  lines  of  code  on 
the  microcomputer  to  identify  the  specific  items  which 
could  be  changed  gtlcbally-  in  the  original  code.  After  the 
necessa'Ty  modi  f  ications  were  determined,  t.he'/  were  made  to 
the  entire  file  using  the  VAX  text  editor,  EDT.  VJhen  the 
modi f icaticns  were  complete  the  large  file  was  broken  into 
five  separate  segments  of  aprircximately  1000  linos  each  and 
transferred,  via  modem,  to  five  scp'arate  floppy  diskettes, 
five  diskettes  were  required  so  there  was  room  to  edit  and 
compile  the  separate  modules.  The  Microsoft  co.mpiler  creates 
1  n  to- rmed  ia  te  (scratch)  files  which  are  almost  twice  the  size 
if  tile  source  file.  The  easiest,  safest  place  to  place  t.he 
scratch  files  is  on  the  same  diskette  as  the  source  file, 

.in.ii  lOOO  lines  of  source  code,  cn  the  average,  create  scratch 
f  1 1  •  :■  s  -.v  h  L  c  h.  n  o  a  r  L  y-  fill  t  hi  e  d  i  s  k  lO  1 1  e  . 

I'OFThAh  does  support  true  dynamic  ntemory  allocation, 

mil  will  not  allow  thw  direct  manipulation  of  array  si,  res 
oaring  '.ixccu  t;  irm  .  Th.-refore,  iiEF  ,  like  matiy  ''thoi-  f  i  n  1 1- 
■.d  m<  ni  iwocrim,  ;  n:p  lume  n  t  s  a  p  seudo -dy  nam  i  c  menK.  ry  aih.'C.i- 
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4.  The  solution  of  eigen  value  proble3ms. 

5.  The  ability  to  solve  nonlinear  problems. 

For  the  purpose  of  implementation  of  a  finite  element 
code  on  a  micrc.'compu  t  er  it  would  also  be  useful  if  the 
program  included  an  out-of-cors  equation  solver  to  elimi¬ 
nate  severe  restrictions  on  problem  size,  and  block  struc¬ 
tured  code  to  minimize  the  difficulty  of  developing  overlays 
if  necessary. 

Practical  considerations  included  the  availability  of 
source  code  and  thorough  docu.mentation  for  the  program. 

It  was  also  n-^:cessary,  because  of  tim.e  constraints,  to 
have  the  source  on  some  type  of  machine  readable  media. 

One  program  which  satisfied  most  of  the  above  char¬ 
acteristics  was  called  MEF .  I.n  addition,  there  was  a 
version  of  MEF  available  at  the  Naval  Postgraduate  School 
which  ran  on  the  VAX  780  under  the  VMS  operating  system. 

The  documentation  for  MEF  was  contained  in  a  book  [Ref.  8] 
•which  was  translated  from  French  by  Professor  Gi  lies  Cantin 
of  the  Naval  Postgraduate  School.  Therefore,  this  investi¬ 
gation  chose  MEF,  the  "Methode  des  Elements  Finis,"  to 
convert  for  implementation  on  t.ho  IBM  PC-.XT  and  Columbia 


77  Subset  with  a  fev;  extensions  to  the  full  language. 
Version  3.1  was  used  for  most  of  the  preliminary  v/ork 
with  y.EF ,  however,  difficulties  involved  in  restructuring 
the  program  to  take  advantage  of  the  Microsoft  named  com¬ 
mon  block  features  prevented  the  implementation  of  XEF 
with  full  sized  arrays.  Later  in  the  investigation, 
Microsoft  FORTRAN  was  updated  to  version  3.2.  The  new 
version  supported  unrestricted  array  sizes,  overlay  sup¬ 
port,  and  an  improved  support  for  the  Intel  8087  math 
coprocessor . 

E.  CHOICE  OF  PROGRAM  FOR  CONVERSION 

To  provide  a  sufficiently  rigorous  test  of  the  computer 
and  softv/are  combination  it  was  desirable  to  implem.ent  a 
general  finite  element  program  of  moderate  to  robust  com- 
ple.xity.  The  characteristics  of  such  a  program  include: 

1.  The  ability  to  solve  a  variety  of  problems  in¬ 
cluding  problems  of  elasticity,  heat  transfer,  and  fluid 
mechanics . 

2.  A  choice  of  element  types,  and  the  ability  to  add 
elements  as  needed. 

3.  The  ability  to  solve  both  static  and  dynamic 
proLxems  of  large  size  involving  more  than  one  element 
type.  Including  problems  having  different  degrees  of 
freedom  at  each  node,  symmetric  or  nonsymmetric  element 
ma  r  r  1  ce  s . 
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short  period.  The  in-core  solution  of  a  200  DOF,  double 
;;  -cision  syst-m  is  important  both  because  it  has  only 
recently  bt.'Comij  possible,  and  because  it  represents  the 
solution  1' f  a  moe-j  ra  te  sized  finite  element  system  with  a 
maximum  bandwidth.  Larger  systems  could  be  solved  in-core 
if  bandwidth  were  minimized,  and  the  solution  technique 
took  advantage  of  symmetry  and  bandwidth  characteri sties , 
as  IS  done  with  most  modern  finite  element  programs.  For 
systems  which  take  advantage  of  these  characteristics,  the 
solution  varies  as  the  product  of  DOF  and  the  square  of  the 
bandwidth.  This  means  that  a  finite  element  system  having 
a  bandwidth  of  eighty  and  five  hundred  degrees  of  freedom 
would  be  solved  in  aoout  one  third  the  time  as  test  four 
above  (after  assembly),  rr  if  a  factor  of  three  is  assumed 
for  all  the  processing,  it  would  take  approximately  the 
same  time  as  test  four.  Even  larger  systemis  could  be  solved 
using  cut-cf-core  techniques,  but  a  fairly  large  number  of 
problems  can  now  be  solved  in-core. 

D.  CHOICE  OF  COMPILER 

At  the  start  of  this  investigation,  the  Microsoft 
FORTRAN  compiler  (version  3.1)  was  the  only  one  which 
offered  features  that  might  be  used  to  implement  arrays 
reuuLring  more  th-;ri  65,536  bytes  of  storage.  In  order  to 
a'/oi  !  ‘■ypi  'll  lim’its  on  data  sotrage,  Microsoft  reser’.’ed  a 
full  6  4.k  se'jmfnt  for  each  named  common  block.  In  support 
of  :  ( ,  r  ab  L 1  1 1  •/ ,  the  compiler  offered  a  complete  ANSI  FORTRAN 
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required  for  solution  was  small  as  compared  with  the  Apple 
II  Plus  best  time  of  2.68  minutes,  and  the  HP  9845  best 
time  of  0.87  minutes.  I.n  comparison  with  Mulholland's 
reported  solution  time  of  approximately  2.5  hours  for  a 
160  DOF  problem  havi.ng  a  bandwidth  of  64,  test  four  took 
only  27.56  minutes. 

The  solution  time  for  the  type  of  solver  used  varies 
with  the  cube  of  the  number  of  degrees  of  freedom  (i.e.,  a 
two  fold  increase  in  DOF  would  predict  an  increase  in  solu¬ 
tion  time  of  eight).  The  predicted  tim.es  for  the  last 
three  tests  were  based  on  the  actual  execution  tim.e  for 
the  first  test.  Since  the  actual  times  are  even  faster 
than  the  predicted  times  t;i<_  conclusion  can  be  drawn  that 
the  over.head  of  addressing  outside  a  64  kilobyte  mem.ory 
page  is  not  excessive  for  this  compiler,  and  does  not  seem, 
to  varv  with  hew  far  outside  the  memory  page  the  addressing 
goes.  If  t.he  results  of  test  three  are  used  to  predict 
test  four  the  resultant  prediction  would  be  27.84  minutes. 

As  t.he  table  shews,  this  is  very  close  to  the  actual  execu¬ 
tion  time.  It  is  important  to  note  that  for  the  size 
matrices  tested,  and  the  am.ount  of  memory  available  the 
solutions  were  achieved  in-core.  Therefore,  in  many 
respects,  the  comparison  with  Mulholland's  data  is  infor¬ 
mative,  but  not  exactly  fair. 

The  significance  of  the  comparison  is  that  it  shows 
tht.'  size  of  problem  which  can  bo  solved  in  a  relatively 
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Matrix  Solution  Demonstration 


3  . 

In  comparison  with  the  matrix  solution  tests  con¬ 
ducted  by  Mulholland  [Ref.  2:  pp.  45-4S]  tests  of  the  IBM 
PC-XT,  and  the  Columbia  MFC  configured  with  512  kilobytes 
of  Ri\M  yielded  significantly  faster  solution  times  for 
even  larger  matrices  than  those  tested  by  Mulholland.  The 
tests  were  conducted  using  the  FORTRAN  program  in  Appendix 
B  to  solve  double  precision,  fully  populated,  matrices. 

T.he  solver  uses  an  LU  decomposition  followed  by  back  sub¬ 
stitution,  and  takes  no  advantage  of  symmetry  or  bandwidth 
The  results  are  as  follows: 


Table  II.  Matrix  Solution  Benchmark  Tests 


DEGREES 

FREEDOM 

PREDICTED 

SOLUTION  TIME 

ACTUAL 

SOLUTION  TIME 

25 

unknown 

0.0577  min . 

32 

.  12  min. 

.119  min. 

100 

3.69  min. 

3,48  min . 

200 

29.54  m.  i  n  . 

27.56  min . 

The  first  test  was  conducted  on  a  matri.x  whose 
storage  requirements  would  not  exceed  64  kilobytes,  but 
would  be  large  enough  to  provide  a  usable  benchmark.  The 
32  degree  of  freedom  (DOF)  matrix  w'as  run  for  direct  com¬ 
parison  with  the  results  obtained  by  Mulholland  [Ref.  2: 
pp.  45-46] .  As  can  be  seen  from  the  table,  the  time 


system  would  be  somewhat  lower  than  the  clock  speed  because 
of  the  system  overhead  created  by  extensive  use  of  inter¬ 
rupts  and  interrupt  handlers.  For  this  reason,  a  simple 
test  was  dev^ised  to  determ.ine  the  processor  speed  available 
to  a  user  program  (apparent  speed)  to  compare  with  eight 
bit  processor  speeds. 

The  test  involved  writing  a  sim.ple  assembly  language 
routine  which  would  place  the  processor  in  a  loop  of  speci¬ 
fied  length.  The  system  clock  was  accessed  just  before 
and  just  after  the  loop  to  compute  the  tim.e  spent  in  the 
loop.  [Ref.  7]  was  used  to  determine  the  numbe'  of  clock 
cycles  in  the  loop,  and  the  number  of  times  through  the 
loop  was  chosen  to  be  large  enough  sc  that  the  computation 
time  involved  in  accessing  the  clock  would  not  significantly 
influence  the  resultant  computation.  The  program  and  cal¬ 
culations  used  are  detailed  in  Appendix  A.  The  result  of 
the  test  indicated  that  the  apparent  speed  of  the  systems 
is  approximately  3.56  MHz  (v/orst  case).  This  test  was 
somewhat  subjective,  however,  the  result  gave  some  insight 
into  the  minim.um  performance  which  could  be  expected  from 
the  system.  While  the  3.5  MHz  speed  is  significantly  lower 
than  4.77  MHz,  it  is  still  about  one  and  a  half  times 
greater  than  typical  eight  bit  processor  speeds;  coupled 
with  a  better  architecture  and  instruction  set  it  was  clear 
that  significant  things  could  be  c.xpectcd. 
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floppy  disk  system.  When  compile  and  link  times  approached 
two  hours  on  floppy  disks  for  the  complete  MEF  system,  the 
increased  speed  of  the  hard  disk  was  significant.  Later 
in  the  investigation,  a  fifteen  megabyte  hard  disk  was 
added  to  the  Columbia  MFC. 

At  the  beginning  of  the  investigation  it  was  impos¬ 
sible  to  determine  the  amount  of  memory  which  would  be  re¬ 
quired  to  implement  MEF.  However,  the  original  implementation 
of  .MEF  on  a  VAX  780  minicomputer  contained  a  working  array 
consisting  of  160  kilobytes.  The  mem.ory  size  of  512  kilo- 
oytes  was  chosen  because  it  was  the  am.ount  which  would  fully 
populate  the  memory  expansion  board  chosen,  and  it  was  felt 
that  it  woula  be  large  enough  to  minimize  the  difficulty  in 
im.plement ing  program  overlays  if  overlays  became  necessary. 

Both  systems  run  using  functionally  identical  oper¬ 
ating  systems  (MS  DOS  for  the  Columbia  and  PC  DOS  for  the 
IBM).  Indeed,  no  modifications  of  any  kind  were  required 
to  carry  the  software  between  the  two  systems.  Even  the 
com.piled  and  linked  program.s  could  be  carried  between  the 
systems . 

2 .  CPU  Speed  Tests 

CPU  speed  for  the  two  systems  is  advertised  to  be 
4.77  MHz.  However,  the  hardware  and  operating  systems  of 
bot:h  machines  are  extensively  interrupt  driven.  No  criticism, 
is  intended  of  this  e.xtremely  powerful  method  of  implemen- 
tion,  however,  it  was  knov/n  that  the  effective  speed  of  the 


1 .  Configuration  of  the  System 

Differences  between  the  two  machines  chosen  for  this 
study  are  minimal.  The  description  which  follows  is  appli¬ 
cable  to  both  systems  with  exceptions  as  noted. 


Table  I.  Configuration  of  the  System 

COMPONENT  DESCRIPTION  COMJIENTS 

CPU  INTEL  3088  with  the 

INTEL  8087  coprocessor 


MEMORY 

DISPLAY 


MASS 

STORAGE 


512  kilobytes 

color  monitor 
with  graphics  adapter 
and  a  monochrome 
display 

one  5.25  inch,  double 
density,  dual  sided 
floppy  diskette  drive 
and  one  ten  m.egabyte 
hard  disk  drive 


the  Columbia  sup¬ 
ported  a  graphics 
capable  monochrome 
monitor  with  a 
graphics  adapter 

the  Columbia  system 
initially  supported 
two  5.25  inch,  double 
density,  dual  sided 
floppy  diskette 
drives  and  no  hard 
disk  drive 


PRINTER 


SERIAL 

PORTS 


graphics  capable,  dot 
matrix,  parallel 
printer 

two  (one  used  for  m.ain- 
frame  communications, 
and  one  for  a  graphics 
input  device  in  support 
of  future  graphics 
development ) 


The  hard  disk  was  not  required  for  the  development 
of  the  MEF  system,  however,  the  availability  of  the  liard  disk 
cut  compile  and  linking  tim.o  almost  in  half  over  the  Columbia 
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microcomputer  would  desire  to  use  it  for  more  than  finite 
element  analysis.  The  existence  of  technical  support  and 
commercially  available  software  would  be  significant  con¬ 
siderations  in  the  choice  of  a  system.  System  hardware 
considerations  inciuded  floppy  disks,  hard  disks,  modems, 
printers,  plotters,  graphical  input  devices  (digitizers, 
joy  sticks,  mouse,  etc.),  and  the  ability  to  support  a 
large  amount  of  memory. 

At  the  time  equipment  for  the  project  had  to  be  chosen 
IBM's  complete  domination  of  the  microcomputer  market  made 
the  choice  of  the  IBM  PC  or  a  PC  compatible  microcomputer 
the  logical  choice  of  hardware  for  the  system.  In  addition 
the  IBM  PC  was  widely  available  at  the  Naval  Postgraduate 
School.  IBM's  domination  of  the  market  also  spawned  a 
tremendous  industry  aimed  at  producing  peripherals  and 
software  for  the  IBM  PC.  Therefore,  it  was  clear  that 
capable  language  compilers,  graphics  devices,  graphics 
software,  and  other  software  would  develop  more  quickly 
and  predictably  for  the  IBM  PC  than  for  other  systems. 

In  the  end,  two  systems  were  used  to  conduct  the 
investigation:  an  IBM  PC-XT  available  at  the  Naval 

Postgraduate  School,  and  a  Columbia  MPC .  The  Columbia 
MPC  was  chosen  for  use  at  home  because  of  its  lower  cost 
and  high  degree  of  compatibility  with  the  IBM  PC. 


program  rather  than  to  reinvent  the  wheel.  The  program  which 
was  chosen,  called  MEF  ( "Methode  des  Elements  Finis"),  was 
written  at  the  Universite  de  Technologic,  Compiegne,  France. 
Justification  for  the  choice  of  MEF  is  provided  in  section 
1.5  belov,/.  Initially,  it  was  hoped  that  graphics,  and  user 
friendly  input  routines  could  be  added  to  the  implementation, 
however,  time  constraints  limited  the  investigation  to  con¬ 
version  of  the  existing  softv/are. 

C.  CHOICE  OF  THE  MACHINE 

The  major  considerations  influencing  the  choice  of  the 
microcomputer  for  this  study  were: 

(1)  Availability  and  support  of  system  hardware  (includ¬ 
ing  peripherals). 

(2)  The  existence  of  a  FORTRAN  compiler  compatible  v/ith 
the  system. 

(3)  The  existence  of  a  compatible,  FORTRAN  callable, 
graphics  package  for  future  implementation  of  graphics. 

(4)  System  cost. 

(5)  The  existence  of  a  wide  range  of  technical  support 
for  hardware  maintenance. 

(6)  The  availability  of  a  wide  range  of  commercial 
software  for  the  system. 

The  last  two  considerations  are  to  insure  that  the 
chosen  system  was  maintainable,  and  versatile.  Presumably, 
any  firm  or  research  group  considering  the  purchase  of  a 


was  also  a  wide  variety  of  peripheral  plotting  devices 
and  other  equipment  and  software  to  support  engineering 
applications . 

B.  PURPOSE  AND  SCOPE  OF  THE  INVESTIGATION 

This  investigation  was  conducted  as  an  attempt  to 
implement  a  general  purpose  finite  element  program  on  a 
sixteen  bit  microcom.puter ,  with  the  intent  of  determining 
whether  or  not  the  resulting  system  was  practically  useful. 
Wilson  [Ref.  6]  makes  the  assertion  that  new  finite  element 
work  will  be  done  in  FORTRAN,  primarily,  because  all  general 
purpose  finite  element  programs,  to  date,  have  been  written 
in  FORTRAN.  This  author  supports  the  assertion  with  the 
observation  that  FORTRAN  is  also  the  most  widely  used  and 
supported  language  in  the  engineering  contmunity.  In  addition 
FORTRAN  77  eliminates  most  of  the  practical  objections  to 
FORTRAN  as  a  programming  language.  Much  previous  work  has 
gone  into  the  i.mplementation  of  the  m.ore  notable  general, 
finite  element  programs  in  use  today,  and  the  construction 
of  these  programs  is  a  project  which  requires  considerable 
investment  in  terms  of  manpower  and  dollars  [Ref.  6]. 

Since  the  purpose  of  the  investigation  was  to  evaluate  the 
usefulness  of  the  resultant  program/m.achine  combination, 
it  was  desirable  to  implement  a  system  of  moderate  com¬ 
plexity  in  order  to  provide  a  rigorous  test.  Therefore, 
the  decision  was  made  to  convert  an  appropriate,  existing 


numeric  data  processing.  rough,  no  specific  standard 

has  been  developed  for  comparing  processing  times  with 
and  without  the  coprocessor,  most  authors  agree  that  addi¬ 
tion  of  the  coprocessor  has  been  shown  to  increase  the 
speed  of  numeric  computation  significantly  [Ref.  4,  5]. 

The  introduction  of  the  sixteen  bit  machines, 
however,  did  not  cause  an  immediate  surge  in  finite  element 
applications  on  microcomputers.  Wilson  [Ref.  6]  points  out 
that  the  development  of  engineering  software  is  dependent 
upon  the  availability  of  a  stable  operating  system,  and  a 
compatible  FORTRAN  compiler.  V4hile  today's  microcomputers 
are  seldom  marketed  without  an  operating  system,  the 
initial  versions  of  operating  systems  have  been  notoriously 
unreliable  and  unsophisticated.  Therefore,  a  lag  exists 
between  the  introduction  of  the  hardware,  and  the  dovelcp- 
m.ent  of  a  stable  operating  system  and.  a  compatible  :"ORTPAN 
compiler.  The  lag  in  the  case  of  the  eight  bit  machines 
was  nearly  ten  years,  but  because  of  the  experience  gained 
in  the  development  of  t.hese  systems  the  lag  was  shortened 
considerably  for  si.xteen  bit  microcomputers. 

At  the  outset  of  this  investigation,  the  market 
boasted  a  variety  of  disk  operating  systems  which  supported 
floppy  disks  as  well  as  the  newer  high-speed  hard  disks. 
There  were  two  FORTRAN  compilers  available  which  had  under¬ 
gone  a  number  of  modifications  and  promised  t.he  maturity 
necessary  to  support  finite  element  applications.  There 


2 .  Sixteen  Bit  Microcomputer  Introduced 

In  1981  and  1982  the  sixteen  bit  LSI  microcomputer 
v.-as  introduced  to  the  market.  While  the  speed  of  these 
machines  was  as  much  as  four  or  five  times  greater  than 
the  eight  bit  predecessors,  the  largest  advantages  were 
realized  by  the  improved  architecture  and  instruction  sets 
Rao  [Ref.  1:  p.  205]  cites  a  ton  fold  improvement  in  execu 
tion  time  for  the  Intel  8086  over  the  Intel  8080A  v;hile 
the  increase  in  clock  speed  was,  at  most,  4  times  that  of 
the  808nA.  Obviously,  the  influence  of  the  architecture 
and  instruction  set  is  strongly  significant.  One  of  the 
most  important  improvements  delivered  by  the  sixteen  bit 
processors  was  the  amount  of  addressable  memory;  the 
smallest  address  space  among  the  various  architectures 
was  1024  kilobytes.  This  is  not  meant  to  imply  that  appli 
cation  software  was  able  to  take  advantage  of  that  address 
space.  There  v/erc  no  compilers,  at  the  time,  that  would 
allow  addressing  outside  a  64  kilobyte  page.  Even  today, 
compilers  that  allow  addressing  beyond  the  64  kilobyte 
page  are  just  beginning  to  enter  the  market.  However,  a 
tremendous  am.ount  of  support  software  such  as  compilers, 
interpreters,  spread  sheets,  etc.  were  no  longer  limited 
to  64  kilobytes  of  memory.  As  a  result,  support  software 
began  to  grow  in  size  and  capability.  In  addition  to  the 
incre.isc  in  address  space  a  number  of  the  systems  were  abl 
to  make  use  of  a  separate  coprocessor,  the  Intel  8087,  for 
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working  array.  A  table  of  pointers  is  made  to  keep  track 
of  the  beginning  of  each  array,  and  as  tables  are  deleted 
the  separate  tables  moved  to  accommodate  the  change. 

MEF  defines  the  large  working  array,  called  VA,  to  be  in 
blank  common,  and  makes  extensive  use  of  named  common  for 
all  other  common  block  applications.  For  this  reason,  the 
basic  structure  of  MEF  had  to  be  altered  to  implement  its 
conversion  with  the  Microsoft  Compiler  version  3.1.  There 
were  some  15  named  common  blocks  in  MEF,  and  since  the 
compiler  reserved  64  kilobytes  for  each  one,  approximately 
960  kixobytes  would  have  been  used  just  for  common  block 
allocation.  Needless  to  say,  there  was  not  enough  memory 
available  even  if  the  compiler/linker  combination  were 
capable  of  handling  the  problem.. 

The  program  structural  change  attempted,  was  to  switch 
all  of  the  elements  in  nam.ed  common  blocks  to  blank  common, 
and  the  single  array  VA  from,  blank  common  to  named  common. 
It  was  envisioned  that  several  named  comm.on  blocks  could 
eventually  be  used  so  that  the  actual  size  of  the  working 
array  couxd  be  larger  than  35,366  bytes.  Considerable 
time  was  spent  in  effecting  this  change,  and  trying  to  get 
the  resultant  version  of  MEF  to  wox'k.  However,  the  changes 
were  too  comprehensive,  and  the  attempt  was  aborted  when  a 
new  version  of  the  com.piler  was  received  in  May  of  1984. 

The  im.prcvements  in  version  3.2  allowed  the  complete  aban¬ 
donment  of  the  restructuring  approach,  and  while  phase  one 
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was  unsuccessful,  the  time  spent  v/as  not  v;asted.  It  allowed 
familiarization  with  the  structure  of  MEF ,  and  v;ith  the 
specific  areas  where  the  FORTRAN  IV  code  needed  to  be 
altered  for  com.patibility  with  subset  FORTP^AN  77.  In  addi¬ 
tion,  it  provided  considerable  familiarization  with  the 
operating  system,  editors,  and  hardware  of  both  the  VAX  and 
the  IBM  PC-XT/COLUMBIA  MFC. 


C.  PHASE  TWO 

A  new  version  of  MEF  which  contained  english  comments 
was  received  about  the  same  time  as  the  new  version  of  the 
Microsoft  Compiler.  Once  again,  proceeding  as  before,  a 
smaller  segment  of  code  was  used  to  determine  the  global 
changes  required  on  the  main  body  of  the  code,  before  trans¬ 
ferring  it  to  floppy  diskettes.  Because  of  the  changes  in 
Microsoft  FORTRAN  version  3.2,  there  were  significantly 
fewer  alterations  required  to  the  global  structure  of  MEF; 
all  of  the  initial  changes  pertained,  strictly,  to  the 
treatment  of  characters  and  strings,  and  to  the  task  of 
making  the  named  COMTION  blocks  the  same  length  in  each 
reference . 


1.  Microsoft  Version  3.2  Improvements 


Improvements  in  the  compiler  which  affected  the 


implementation  of  MEF  are  as  follows: 


1.  Support  for  the  BLOCK  DATA  statement. 


2.  Support  for  arrays  and  COMMON  blocks  longer 


than  64  kilobytes. 
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3.  Inclusion  of  A  simple  overlay  linker  (overlays 
were  unnecessary  in  the  end,  but  at  the  time  the  investiga¬ 
tion  started  there  was  no  way  to  tell  whether  or  not  they 
would  be  required) . 

4.  Better  support  for  the  Intel  8087  coprocessor 
including  implementation  of  the  IEEE  floating  point  math 
standard  (the  default  for  this  version). 

From  the  point  of  view  of  this  investigator,  the 
single  most  important  change  in  the  Microsoft  Compiler  was 
the  support  for  large  arrays  and  common  blocks.  This  is 
the  change  which  eliminated  the  unusual  implementation  of 
named  COMMON  present  in  version  3.1.  It  must  be  noted  here, 
that  though  the  common  block  problem  was  solved,  the  ability 
to  address  more  than  64  kilobytes  beyond  the  beginning  of 
an  array  or  common  block  was  often  defeated  by  compiler/ 
linker  bugs.  Simple  applications  such  as  the  array  solver 
shown  in  APPENDIX  B  had  no  difficulty  in  compiling,  linking, 
and  producing  results  using  arrays  limited  only  by  the 
amount  of  memory  available.  However,  more  complicated 
programs  v;ith  numerous  common  blocks  and  arrays  provide  a 
serious  challenge  to  the  compiler/linker  combination,  and 
the  results  are  not  always  gratifying.  The  improvement 
over  earlier  versions,  however,  are  monumental  and  conversa¬ 
tions  with  Microsoft  Technical  Support  indicate  that  future 
releases  of  the  compiler  will  solve  the  types  of  problems 
encountered  in  this  research. 
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2. 


Small  Memory  Model  Implementation  of  MEF 
With  the  improvements  mentioned  above  it  took  only 
a  few  weeks  to  provide  a  working  version  of  MEF  which  was 
called  the  "Small  Memory  Model"  (SMM) .  That  is,  no  arrays 
were  declared  to  be  large  (the  working  array  size  was  cut 
to  2000  words).  For  details  of  the  compiler  structure,  the 
reader  is  referred  to  [Ref.  12:  pp.  99-129].  The  result 
was  that  the  working  array  was  kept  in  a  default  data  segment 
referred  to  as  DGROUP.  DGROUF  also  contains  memory  pointer 
variables  used  by  the  compiler  and  run-time  system;  the 
stack,  which  is  used  for  passing  parameters  between  sub¬ 
routines;  static  variables  and  constants;  and  addresses  of 
other  data  segments  such  as  named  COMMON  blocks  and  large 
arrays.  The  result  is  that  the  small  memory  model  is  sig¬ 
nificantly  limited  in  comparison  to  the  later  implementation 
(called  the  large  memory  model)  because  the  working  array 
size  could  not  drive  the  size  of  DGROUP  over  64  kilobytes 
without  declaring  the  dummy  arrays  as  large  arrays.  The 
only  significant  difficulty  encountered  during  this  con¬ 
version  was  that  the  BLOCK  DATA  module  would  not  initialize 
correctly.  Conversations  with  Microsoft  technical  support 
indicated  that  this  was  a  known  bug  and  that  BLOCK  DATA 
had  to  appear  as  the  first  object  in  a  link  module  in  order 
for  correct  initialization  to  take  place. 

The  correctness  of  the  small  memory  model  was  veri¬ 


fied  with  the  published  results  used  to  verify  the  VAX 
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implementation.  In  all  cases,  the  results  obtained  on  the 
microcomputer  were  identical  with  those  published  by  Dhatt 
and  Tuzot  [Ref.  8],  with  the  exception  of  residual  computa¬ 
tions.  Residual  computations  on  the  microcomputer  produced 
number  of  the  same  (small)  magnitude  but  not  the  sam.e 
mantissa.  It  is  suspected  that  this  could  be,  in  part, 
related  to  Microsoft's  adoption  of  the  IEEE  standard  for 
real  number  representation  and  calculations.  The  differences 
in  residual  computations  are  considered  to  be  inconsequential 
by  this  investigator.  At  the  time  the  small  memory  model 
was  completed,  MEF  contained  only  the  first  two  elements;  a 
quadratic  elem.ent  for  anisotropic  harmonic  problems  in  one, 
two,  or  three  dimensions;  and  an  eight  noded  quadrilateral 
element  for  two  dimensional  elasticity  problems. 

3 .  Large  Memory  Model  Implementation  of  MEF 

To  begin  with,  the  simplest  of  approaches  was  used 
to  convert  to  a  large  memory  model;  all  arrays  were  declared 
large  (using  the  compiler  "metacommand"  $LARGE  [Ref.  11:  pp. 
186-187)).  This  approach  was  used  because  of  its  simplicity, 
and  the  fact  that  all  dummy  arrays  of  the  working  array 
(arrays  which  were  contained  within  the  working  array)  had 
to  have  t.he  $LAP.GE  attribute  for  the  compiler  to  generate 
correct  linkages.  Initial  compiler  diagnostics  included 
errors  for  several  DO  loops  that  indicated  that  the  compiler 
believed  an  illegal  jump  into  the  range  of  a  DO  had  been 


Gxecu  ted . 


Each  of  the  affected  DO  loops  was  nested  and  did 


not  appear  to  violate  the  specifications  of  FORTRAN  77. 
Furthermore,  they  had  not  caused  problems  with  tiie  implementa 
tion  of  the  Small  Memory  Model.  These  problems  were  alle¬ 
viated  by  the  use  of  the  compiler  metacommand  $DC66  [Ref.  11: 
p.  183]  which  tells  the  com.piler  to  use  the  FORTRAN  66  DO 
loop  conventions  (it  does  not  appear  that  this  should  have 
worked,  but  it  did). 

The  resulting  code  compiled  and  linked  without  diag¬ 
nostics  but  did  not  work.  The  initial  symptom  was  that  it 
did  not  recognize  any  of  the  commands  contained  in  the  input 
stream.  Diagnostic  write  statements  revealed  that  the  array 
used  to  store  the  list  of  commands  was  not  initialized 
correctly.  The  array  (BLOCS)  was  initialized  by  a  DATA 
statement  within  the  main  program.  The  statement  appeared 
to  bo  correct  in  syntax  and  generated  no  diagnostics,  yet 
writing  the  contents  of  the  array  indicated  that  it  con¬ 
tained  nulls.  The  DATA  statement  initialization  of  the 
array  was  replaced  with  a  call  to  a  subroutine  which  ini¬ 
tialized  the  array  using  assignment  statements.  This  solved 
the  command  recognition  problems,  but  runtime  errors  which 
invol'/ed  a  variety  of  arithmetic  operation  violations  were 
produced.  Usually  these  errors  were  overflows,  underflows, 
or  attem.pts  to  use  an  uninitialized  variable  in  an  arith¬ 
metic  operation.  The  particular  error  depended  upon  what 
fix  up  had  been  used  to  overcome  the  previous  error. 
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Curing  this  period,  conversations  with  Microsoft 
Corporation's  technical  support  department  indicated  that 
there  were  several  reported  bugs  in  the  compiler.  One  was 
the  BLOCK  DATA  problem  mentioned  above,  and  another  was 
that  arrays  which  had  the  large  attribute  were  not  always 
initialized  correctly  by  data  statemients.  However,  this 
last  problem  was  only  supposed  to  occur  with  REAL  arrays. 

The  first  problem  was  solved  by  compiling  the  BLOCK  DATA 
module  separately,  and  linking  it  as  the  first  module  at 
all  times.  This  did  not  alleviated  the  incorrect  initializa¬ 
tion  of  the  CHARACTER* i  command  array,  so  the  MAIN  program 
segment  was  com>piled  separately  assigning  the  $LARGE  attri¬ 
bute  to  the  working  array,  and  allowing  all  other  arrays 
in  the  .^lAIN  t-rogrami  to  default  to  $NOTLARGE.  After  this 
the  comm, and  array  was  initialized  correctly,  but  run-time 
errors  were  still  a  problem. 

The  use  of  character  arrays  to  pass  table  names  was 
prevalent  throughout  MEF,  and  diagnc^stic  write  statements 
inaicated  that  som.e  of  them  were  being  initialized  correctly 
and  some  were  not.  Since  there  were  so  many  of  them  and 
there  did  not  seem  to  be  any  particular  characteristic  which 
w’ould  identify  which  ones  would  initialize  and  which  would 
not,  the  arrays  containing  all  of  these  tables  were  declared 
SNOTLARGE.  This  resulted  in  the  tables  initializing  cor¬ 
rectly,  but  the  run-time  errors  persisted. 
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It  is  appropriate  to  mention  here  that  the  time  to 
compile  and  link  after  making  changes  which  required  recom¬ 
piling  all  modules  was  close  to  two  hours  on  the  Columbia 
floppy  disk  system.  The  IBM  PC/XT  had  only  recently  become 
available  and  reduced  compile  and  link  time  to  under  an  hour. 

In  addition,  the  linked  module  using  the  mixture  of  meta¬ 
commands  was  often  over  400  kilobytes  long.  A  standard 
floppy  diskette  will  only  hold  360  kilobytes  and  these  ex¬ 
cessively  large  linked  modules  would  not  have  been  possible 
without  the  hard  disk.  Further,  it  would  not  have  been 
possible  to  proceed  without  them  either;  the  run-time  errors 
proved  essential  in  localizing  the  problems  and  identifying 
them  as  compiler  bugs  rather  than  logic  errors.  The  linked 
module  using  the  generic  $LARGE  metacommand,  was  approximately 
239  kilobytes,  and  while  neither  module  would  execute  cor¬ 
rectly,  the  increase  in  size  of  the  mixed  module  was  highly 
suspect  since  the  $N0TLARGE  metacommand  was  supposed  to 
produce  less  object  code. 

Further  conversations  with  Microsoft  Technical  Support 
indicated  that  there  had  been  some  reports  that  mi.xing  the 
SNOTLARGE  metacomm.and  with  the  $LARGE  metacommand  could 
cause  problems,  and  that  the  syntax  for  the  $ (NOT) LARGE 
command  was  incorrect  in  the  reference  manual.  The  manual 
iRef.  11]  specified  that  the  $(NOT)LARGE  metacommand  could 
be  used  with  a  string  of  array  identifiers  separated  by  commas. 
However,  according  to  technical  support  each  occurrence  of 
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the  metacoiT'Jiiand  could  only  declare  a  single  array  name,  and 
the  metacommand  required  a  colon  separator  between  the  comm, and 
and  the  array  name  (i.e.,  $LARGE:  array).  If  the  metacomm.and 
was  used  without  an  argument  (called  a  generic  $(XOT) LARGE) 
then  all  arrays  in  the  compiland  were  considered  to  have  the 
particular  attribute. 

Since  the  mixing  of  the  $NOTLARGE  command  with  the 
generic  $LARGE  comm.and  was  suspect,  numerous  attem.pts  were 
made  to  identify  all  arrays  which  required  the  $L.^RGE  attri¬ 
bute  and  declare  the.m  specifically  while  allowing  all  others 
to  default  to  $NOTLARGE.  None  of  these  attempts  worked. 
Conversations  with  Microsoft  Technical  Support  indicated 
that  the  investigation  had  possibly  uncovered  some  new 
problems  with  the  compiler  and  requested  that  the  problem  be 
documented  and  sent  to  Microsoft  with  a  diskette  containing 
the  softw'are  (they  were  less  enthusiastic  when  told  hov; 
extensive  the  software  was) . 

As  a  last  act  of  desperation,  all  data  statements 
which  initialized  arrays  were  comiiriented  out.  The  data 
statement  initializations  were  performed  w'ith  assignment 
statem.ents  either  directly  or  through  subroutine  calls,  and 
all  modules  were  recompiled  using  the  generic  $LARGE  meta¬ 
command.  The  resulting  linked  m.odule  was  approximately  240 
kilobytes  long  and  was  able  to  run  the  simple  test  problem.s 
With  no  'iifficulty.  However,  as  the  size  of  problems  was 
increased,  the  behavior  of  the  program  became  unpredictabl e . 
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The  program  worked  properly  until  the  problem  requirea  iiore 
than  64  kilobytes  of  the  working  array  to  run.  This  always 
occurred  during  execution  of  the  assembly  and  solution  pro¬ 
cess,  and  the  results  vary  depending  upon  which  element  sub¬ 
routine  IS  being  used  (i.e.,  which  incorrect  internal 
linkage  is  being  used) . 

To  summarise  the  problems  mentioned  above: 

1.  Arrays  which  have  the  $LARGE  attribute  are  not 
always  initialized  correctly  with  data  statements.  The  in¬ 
correct  initialization  is  not  predictable,  nor  is  it  con¬ 
fined  to  REAL  arrays. 

2.  The  $LARGE  and  $!S:OTLARGE  metacommands  cannot  be 
used  inside  t.he  same  compiland. 

3.  BLOC.K  DATA  must  appear  as  t.he  first  module  in  a 
link  module. 

■! .  Nested  DO  loops  can  sometimes  generate  compile 
time  errors. 

In  an  effort  to  cleanup  the  long  '.breams  of  assign¬ 
ment  statements  caused  by  the  data  statement  pro',  lem,  a 
separate  compiland  was  created  in  which  subroutines  whose 
nam.es  begin  with  "INIT"  (see  Appendix  E,  pp.  247-258  )  were  placed. 
The  mct.hcd  used  was  to  pass  the  name  of  the  array  being 
initialized  as  a  calling  parameter.  The  passed  param.cter 
was  declared  $LAPGE,  and  all  other  arrays  wore  allowed  to 
default  to  $NOTLARGE.  A  $NOTLARGE  "dummy"  array  was  initial¬ 
ized  with  a  data  statement  and  a  DO  loop  was  executed  wiiich 
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assigned  the  elements  of  the  "dummy"  array  to  the  passed 
array,  and  then  executed  a  return.  During  the  creation 
of  these  subroutines  it  was  discovered  that  the  data  state¬ 
ments  in  the  first  subroutine  of  the  compiland  would  not 
initialize  correctly.  If  the  initializations  were  character 
strings  no  diagnostic  was  generated,  but  if  the  initializa¬ 
tions  were  REAL  constants  the  compiler  would  generate 
"CANNOT  CONVERT  CONSTANT"  diagnostics.  A  subroutine  called 
DUMMY  which  had  no  function,  and  was  never  called  by  another 
routine  was  created  and  placed  as  the  first  subroutine  in 
the  compiland.  The  method  is  not  elegant,  but  it  worked, 
and  It  eliminated  long  strings  of  assignment  statements  which 
did  nothing  more  than  assign  constants  every  time  a  subroutine 
was  called.  In  the  case  of  many  subroutines  these  statements 
were  only  e.xecuted  once,  however,  in  the  case  of  element 
subroutines,  they  were  executed  many  times  during  a  problem 
solut ion . 

During  the  course  of  this  investigation  five  elements 
were  added  to  MEF ,  and  it  was  only  after  the  implem.entation 
of  these  elements  and  the  initialization  routi.es  that 
problems  large  enough  to  cause  difficulties  v/ere  attempted. 

It  was  feared  that  the  modi  f  ica  t  ions  to  MEF  had  possiblv^ 
induced  some  of  the  prcblem.s.  In  order  to  demonstrate 
whether  or  not  the  microcomputer  code  was  portable,  and  to 
verily  tnat  compiler  bugs  were  the  problem,  and  not  a  failure 
in  program  logic,  .MEF  was  transferred  by  modem  to  the  VA.X  780. 
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The  transferred  code  required  four  lines  of  code  to  be  modi¬ 
fied.  Two  of  the  lines  were  OPEN  statements  which  contained 
file  names  that  had  illegal  character  strings  under  the  VMS 
operating  system,  and  two  contained  an  illegal  format  ele¬ 
ment,  a  backslash  (in  the  Microsoft  implementation,  the 
backslash  suppresses  an  automatic  carriage  return  linefeed 
at  the  end  an  output  line)  .  The  resulting  FORTRAN  program, 
compiled  and  linked  with  no  further  diagnostics,  and  its 
results  have  been  verified  using  published  test  problems 
[Ref.  3],  and  [Ref.  13:  pp.  170-177].  In  addition,  the 
results  have  been  tested  using  the  Graphics  Interactive 
Finite  Elem.ont  Timesharing  System  (GIFTS),  and  CAL-NPS.  A 
selection  of  the  test  problems  has  been  provided  in  .appendix  E 

D.  GLOBAL  STRUCTURE  .i\ND  USE  OF  MEF 

It  is  not  the  intention  of  this  thesis  to  provide  a  com,- 
prohensivc  programmer's  reference  manual  or  users  guide  to 
.■'lEF .  iicwovor,  an  overview  of  the  structure  of  MEF  will  be 
helpful  to  any  potential  user  of  this  powerful  tool.  For 
iroater  detail,  the  reader  is  referred  to  Chapter  Six  of 
[Kef.  3 ] . 

1 .  Functional  Blocks  of  MEF 

MEF  consists  of  sixteen  functional  blocks.  Some 
of  the  blocks  arc  required  for  all  problem  types,  and  some 
of  the  bloc.'is  are  optional  depending  on  the  problem  being 
solved.  The  functional  blocks  are  also  the  names  of  the 


block  calling  cards  (or  coirjnands)  and  are  listed  in  Table 
III  below.  .An  underscore  indicates  that  the  block  is 
reguired  tor  all  proble.m  types. 

Functional  bl  -ck  diagrams  are  creviced  in  Appendi.x 
C,  ana  complete  descriptions  of  the  input  data  cards  are 
provided  in  (Ref.  8:  pp.  440-447],  The  main  program  con¬ 
trols  the  flow  of  all  information  through  the  functional 
blocks  by  transferring  control  to  a  subroutine  called  BLNNNN 
when  the  block  calling  card  NNNN  is  encountered  in  the  input 
file.  The  subroutine  BLNNXN  then  performs  preliminary  func¬ 
tions  such  as  logical  unit  identification,  and  reading  of 
control  pararaeters  for  the  creation  of  various  files  and 
tables.  The  subroutine  then  calls  subroutine  EXNNNN .  In 
all  cases,  subroutine  BLN’MN'N  provides  appropriate  default 
parameters  which  will  be  overridden  by  user  values  if 
specified.  Subroutine  EXNNN'K  then  performs  the  major  opera¬ 
tions  of  the  block  by  calling  on  the  needed  subroutines  in 
the  .'lEF  library.  The  above  protocol  holds  for  all  blocks 
except  STOP,  COMT,  and  IflAG.  All  the  functions  of  COMT 
and  I.’bAG  arc  performed  by  subroutine  BLNNNN ,  and  the  func- 
tiGi;  of  blocs.  STOP  13  performed  by  the  main  program. 

Witii  the  r.xception  of  blocks  I.^LAG ,  COMT,  and  STOP 
■■ich  bloi'k  uco.r.  a  named  COMMON /XNXX/  to  assist  in  the  pass- 
; -g  if  n-  ed'  :  in‘crma*:ion  betw-een  subroutines.  The  blocks 
J  T  ina  IMM  uo..:-  a  named  comm.on  block,  COMMON /TRVL/ ,  which 
1  uai,f;  i.i  i  scratch  pad  for  various  routines.  Block  STOP 
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bloc!-; 
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net  re'.-:uire  its  own  ccnir'cn  oiccji  out  uses  trve  :.nr '■■■rir.c;:  - 
fron  COM^'^OX ALLOC,'  tc  cerform  its  function  of  urist;;:: 
ti. c  .uaxtiouni  lor'.qth  of  ti'.c  working  array  used  during  execu¬ 
tion  of  the  nroblem.  Tlie  conirion  block  COMLOX /ALLOC ,  is 
used  by  subroutine  ESPACE  and  VIDE  to  keep  track,  of  the 
ar.cunt  of  working  space  allocated  at  any  tinie.  Subroutine 
ALf-OC  allocates  table  space,  and  subroutine  VIDE  deletes 
-cu'.oeded  tables  followed  by  compacting  the  workspace. 

Variable  and  array  naming  conventions  and  details 


are  containec  in  iRcr.  a: 


3h9-376]  these  details  are 


.c:iutcd  here  because  rhoy  will  only'  be  helpful  to  the 
reader  who  intends  to  modify  MEE .  In  that  case  the  reader 
-s  r'-ferr-.d  to  the  source  for  the  e.xtensive  detail  required. 


Table  III.  Functional  Block  SumiTiary 


Conie.s  th.e  input  data  card  images  to  the  output 
Listinc.  .Must  be  the  first  card  if  used. 


?iacc.3  comments  into  the  output  listing. 


CdiR  .-X'ads  the  nodal  coordinates  and  number  of  degrees 
of  freedom  of  each  node.  Provides  automatic  node 
7  e  n  o-  r  1 1  ion  . 

D[.P',  Proviries  the  ability  to  modify  the  degrees  of  freedom 
it  a  node.  Particularly'  useful  with  problems  using 
mere-  tiian  'ino  element  t'/oe. 


ro!a’rii'.;S  if  rei.ruirod  bv  the  ;  roblem. 


!■;r;«'^f  roper  t  1 '''S  ir  roouirei: 
in;  us?  '.i  . 


or  tii'i  element 


APPENDIX  A 


CPU  CLOCK  SPEED  TEST 

The  following  Intel  80S8  Assembly  language  program, 
asson’blcd  with  the  MICROSOFT  assembler  (MASM),  was  used  to 
derormino  the  apparent  speed  of  the  processor,  or  the  loss 
of  processor  speed  duo  to  the  processing  involved  in  handling 
the  interrupt  driven  operating  system. 

When  executed,  the  program  loops  for  the  number  of  times 
specified.  The  actual  number  of  times  through  the  loop  can 
be  determined  by  multiplying  the  contents  of  the  BX  register 
by  t5,53h.  In  this  application,  the  result  is  10,185,760. 

The  program  accesses  th.e  system  clock  before  and  after  com¬ 
pletion  of  the  loop,  and  computes  the  elapsed  time  to  the 
nc’arest  second.  The  elapsed  time  is  then  displayed  on  the 
screen.  The  test  was  dene  numerous  times  on  both  systems, 
and  never  comvputed  an  elapsed  time  less  than  52  seconds  nor 
one  'ire  a  tor  than  5  3  seconds. 

■-Mock  c'/clo'  c;a  I cu laticns  were  computed  by  counting  the 


tota  I 

numbvr  ^ 

cf  machine 

C’/Cl 

es  e.xecuted  between 

the  labels 

l\A  I T 

:t  nc 

:d;DW, 

AIT.  The  f 

2  ight 

cycles  used  for  ini 

t  i  a  1  i  z  a  t  i  o  n 

LI’  th 

' .)  S  *1. 

ecs  before 

the 

label  WAIT  have  been 

included 

n  i  y  :  r  >  s  ikv  of  preciseness  so  that  all  machine  cp-cle-^ 
.  ov.  ■  ''h  o-eessvs  were  accounted  for.  T'le  numbeu'  of 
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the  addition  of  interaction,  or  an  interactive  preprocessor 
to  produce  the  "steering  file"  (command  input  file). 

2.  The  capabilities  of  graphics  to  summarize  the 
results  from  any  finite  element  application  cannot  be  over 
stated.  In  addition,  the  graphic  representation  of  the 
structure  and  finite  element  mesh  is  important  for  the 
detection  of  errors  in  the  problem  definition.  Therefore, 
the  addition  of  graphics  to  MEF  would  significantly  improve 
its  capability. 

3.  The  possibilities  regarding  the  addition  of  elements 
are  almost  without  bound.  However,  the  addition  of  a  cubic 
solid  elemient  (a  32  node  brick)  would  provide  significant 
additional  capabilities.  The  addition  of  such  an  element 
would  provide  an  exact  solution  for  beams  (using  only  one 
element  for  node  loadings) ,  and  an  excellent  model  for 
plates  and  shells.  The  addition  of  such  an  elemient  would 
allow  the  elimination  of  a  number  of  the  existing  elements, 
at  the  cost  of  more  memory;  the  trade  off  would  have  to  be 


evaluated . 


the  finite  element  classroom.  As  soon  as  the  problem  size 
restrictions  are  overcome,  MEF  will  have  far  greater  applica¬ 
tion  on  the  microcomputer. 

It  is  important  to  understand  the  significance  of  what 
the  ability  to  create  and  execute  software  of  this  complexity 
and  capability  (on  a  microcomputer)  can  mean  to  the  field  of 
engineering  in  general.  If  the  compiler  had  been  "clean," 
the  problems  encountered  in  converting  MEF  would  have  been 
minimal.  The  cost  of  a  microcomputer  system  is  well  within 
the  range  of  most  small  engineering  firms,  and  the  increase 
in  problem  solving  capability  is  even  more  dramatic  than  the 
step  from  the  sliderule  to  the  programmable,  pocket  calculator. 
There  is  a  wide  variety  of  software  available  today  including 
finite  elements,  optimization,  heat  transfer,  fluid  dynamics, 
electronic  circuit  design,  control  systems,  etc.  The  cost 
of  com.puter  time  has  made  much  of  this  software  unavailable 
to  smaller  concerns.  However,  the  near  future  will  undoubt¬ 
edly  see  the  conversion  of  much  of  this  software  to  micro¬ 
computer  systems.  The  possibilities  are  encouraging. 

C.  RECOMMENDATIONS 

The  follov/ing  recommendations  are  made  for  future  devel¬ 
opment  of  MEF: 

1.  MEF,  as  implemented,  is  prim.arily  a  batch  stream  pro¬ 
cessor.  By  that  it  is  m.eant  that  the  input  is  non  i  ntoract  i  ve 
and  formatted.  The  facility  of  MEF  would  be  enhanced  by 
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gratifying  on  one  hand,  and  frustrating  on  the  other.  The 
frustration  results  from  the  limitations  imposed,  not  by 
the  program,  and  not  by  the  hardware,  but  by  the  immaturity 
of  the  compiler.  Kith  the  example  of  the  matrix  solver 
shown  in  Appendix  B  it  is  clear  that  the  machine  and  compiler 
combination  have  the  capability  to  solve  large  problems.  It 
is  unfortunate  that  compiler  bugs  prevent  the  full  realiza¬ 
tion  of  that  capability  with  a  more  complex  application. 
Hov^ever ,  conversations  with  Microsoft  Corporation  indicate 
that  a  new  release  of  the  compiler  may  be  available  as  early 
as  January  1984,  and  even  at  this  time,  advertisements  for 
competitive  compilers  are  beginning  to  appear  in  periodicals. 

A  more  objective  statement  of  the  results  is  that  the 
largest  problem  which  could  be  run  on  the  microcomputer  took 
less  than  five  minutes  from  start  to  stop,  and  the  results 
are  comparable  to  the  results  obtained  from  other  sources. 

It  is  clear  that  the  execution  speed  and  capability  of  the 
software  is  acceptable.  Therefore,  the  utility  of  MEF  is 
assured,  subject  to  the  temporary  restriction  of  problem 
size.  .2.t  t.his  time,  MEF  is  an  excellent  classroom  tool,  and 
is  capable  of  solving  most  problem, s  given  as  academic  exer¬ 
cises  in  solids  and  conduction  heat  transfer.  It  is  also 
capable  of  handling  many  problems  which  are  not  assigned  as 
academic  exercises.  In  addition,  because  of  its  modular 
structure,  MF]F  alsc  provides  an  excellent  teaching  tool  for 
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memory  model  is  not  able  to  take  advantage  of  the  full  memory 
available  because  of  the  existing  bugs  in  the  Microsoft 
FORTRAN  77  Compiler  version  3.2. 


B.  CONCLUSIONS 

Although  it  was  not  the  intention  of  this  investigation 
to  evaluate  the  hardware  or  operating  systems  of  the  two 
machines,  it  is  impossible  to  write  a  conclusion  without 
mentioning  them.  Throughout  this  investigation,  both 
systems  (the  IBM  PC-XT,  and  the  COLUMBIA  MPC)  have  functioned 
faultlessly.  This  observation  includes  the  operating  systems 
and  the  hardware.  Both  computers  have  been  supported  by  a 
variety  of  peripherals  manufactured  by  different  companies, 
and  neither  system,  has  operated  in  a  controlled  environment. 

The  machines  are  turned  off  and  on  at  will,  and  have  received 
only  the  m.ost  cursory  preventive  maintenance.  Yet,  both 
systems  have  maintained  one  hundred  percent  availability,  on 
demand,  with  no  time  spent  at  reduced  capability.  The  pre¬ 
vious  e.xperience  of  this  investigator  has  been  with  mainframe 
computing  systems,  and  the  reliability  of  these  microcomputer 
systems  was  totally  unexpected. 

At  the  beginning  of  this  investigation,  it  was  not  clear 
that  a  program  the  size  and  comple.xity  of  MEF  could  be  con¬ 
verted  to  operate  on  a  microcomputer.  However,  a  background 
in  computer  science  and  operating  systems  led  this  investigator 
to  believe  that  it  might  be  possible.  The  results  have  been 
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Regardless,  the  sixteen  bit  microcomputer  has  been 
around  since  1981,  yet  there  is  little  engineering  software 
available  today.  The  reason  is  that  reliable  software  tools 
(operating  systems,  compilers,  etc.)  lag  the  introduction  of 
hardware  by  a  considerable  amount  of  time.  The  premise  of 
this  thesis  was  that  the  necessary  maturity  of  operating 
system  and  compiler  had  been  achieved,  and  a  combination  of 
hardware,  operating  system,  and  compiler  was  chosen  to  test 
the  premise  in  the  specific  application  of  finite  elements. 

As  stated  in  Chapter  I.B,  the  purpose  of  this  investiga¬ 
tion  was  to  implement  a  general,  finite  element  program  on 
a  sixteen  bit  microcomputer,  and  determine  whether  the  result 
was  practically  useful.  The  actual  programming  and  conver¬ 
sion  of  software  began  in  March  1984,  and  continued  thru 
August  1984.  During  that  period  two  distinct  version  i'.EF 
were  installed  on  the  IBM  PC-XT  and  the  COLUMBIA  MPC  micr'  - 
computers.  The  first  version  was  a  small  memory  model  which 
performed  all  the  functions  of  the  mainframe  version  but 
was  quite  limited  in  the  size  of  problems  it  could  handle. 
This  was  to  be  expected,  and  was  merely  a  point  in  the  step¬ 
wise  implementation  of  the  objective. 

The  small  memory  model  was  then  converted  to  the  current 
version  of  MEF  which  is  referred  to  as  the  large  memory  model 
The  large  memory  model  is  significantly  more  capable  than 
t.he  sm.all  m.em.ory  model  in  terms  of  the  problem  size  that  can 
be  handled.  However,  as  detailed  in  Chapter  II  the  large 
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RESULTS  AND  CONCLUSIONS 


A .  SUMMARY 

Chapter  I  recounted  a  portion  of  the  history  and  develop¬ 
ment  of  the  microcomputer  and  attempted  to  list  some  of  the 
reasons  that  microcomputer  based,  engineering  software  has 
been  slow  to  develop.  The  main  reason  is  that  it  was  too 
difficult  to  create  engineering  software  on  the  rather 
limited  resources  provided  by  the  eight  bit  microprocessor, 
and  limited  software  tools  which  existed  at  the  time.  In 
addition,  the  engineering  software  which  was  created  was  slow 
and  unwidely  to  use  which  hampered  its  propagation  and  devel¬ 
opment.  However,  the  advent  of  the  sixteen  bit  microprocessor 
has  provided  a  hardware  product  whose  capabilities  are  more 
than  adequate  for  engineering  applications.  This  opinion 
is  supported  strongly  by  the  fact  that  the  majority  of  main¬ 
frame  minicomputer  systems  today  are  based  on  sixteen  bit 
processor  architecture.  The  major  difference  between  the 
minicomputer  and  the  microcomputer  is  operating  system 
maturity,  and  processor  speed.  The  speed  advantage  is 
partially  offset  by  the  fact  that  a  microcomputer  is  seldom 
used  to  support  timesharing  applications,  and  can  often  pro¬ 
duce  results  almost  as  quickly  as  the  minicomputer  burdened 
with  the  management  of  timesharing  (one  must  count  the  time 
spent  waiting,  not  just  the  CPU  seconds). 


The  factor  of  2.0  is  an  empirically  determined  factor 
used  to  account  for  the  storage  of  all  tables  in  the  working 
array.  Because  of  the  compiler  bugs  which  have  not  yet  been 
circumvented  or  corrected,  if  the  space  required  approaches 
64  kilobytes  then  the  compiler/IBM  PC  capabilities  have  been 
exceeded,  and  KEF  will  probably  fail  with  a  run-time  error. 


directly  from  the  keyboard  can  be  a  very  frustrating  expe¬ 
rience,  and  if  a  mistake  is  made  there  is  no  recourse  but 
to  begin  again.  For  this  reason,  it  is  recomme.nded  that 
a  conimand  input  file  be  created  with  a  suitable  text  editor 
FORTRAN  77  rules  apply  to  the  format  of  the  cards.  That  is 
entries  separated  by  commas  will  override  the  specified 
format,  however,  there  must  be  no  blanks  imbedded  in  the 
line  if  the  format  is  to  be  override.n.  As  can  be  seen 
from  the  examples  provided  in  Appendix  D  either  method  will 
work,  and  the  user  may  find  it  convenient  to  enter  some 
cards  according  to  the  format,  while  other  cards  may  be 
easier  to  override. 

It  is  advisable  to  send  the  output  file  to  disk 
rather  than  to  the  printer.  The _disk  file  can  be  viewed 
and  even  edited  with  a  text  editor  prior  to  printing.  Send 
ing  the  output  to  the  printer  will  simply  cause  the  process 
to  be  output  bound.  MEF  also  uses  a  132  character  output 
line,  and  it  is  advisable  to  shift  the  printer  to  a  17  c.har 
acter  per  inc.h  mode  if  it  does  not  have  a  wide  carriage. 

The  amount  of  space  required  to  run  the  problem 
must  be  of  concern  to  the  user  until  the  bugs  have  been 
eliminated  from  the  compiler.  The  required  number  of  bytes 
may  be  estimated  using  the  following  formula: 

spac^;  required  =  (bandwidth)  (number  of  nodes)  (8)  (2.0) 
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input  file,  MEF  will  request  the  name  of  the  output  file. 

Once  again,  this  may  be  any  legal  file  name  including  PPN. 

The  response  PRN  will  result  in  the  output  being  directed 
to  the  printer.  .MS-DOS  pathnames  are  not  supported  by  MEF 
in  the  naming  of  input  and  output  files.  After  the  entry 
of  the  output  file,  MEF  will  begi.n  to  process  the  comma.nd 
i.nput  file;  as  MEF  processes  the  input  commands  it  will  up¬ 
date  the  console  with  information  concerning  which  functional 
block  it  is  processing. 

When  MEF  is  used  on  a  system  which  does  not  have  a 
hard  disk  it  is  best  to  keep  the  input  and  output  data  files 
on  a  separate  diskette  in  the  default  drive,  and  e.xecute  MEF 
from  the  default  drive  using  a  drive  designation.  For  example 
if  the  default  drive  was  a:  the  MEF  program  could  be  started 
by  typing  b:MEF  with  the  MEF  diskette  in  drive  b:  and  a 
scratch  diskette  in  a:.  The  reason  for  this  is  that  MEF 
creates  several  scratch  files  on  the  default  drive  during 
execution,  and  there  is  not  much  room  left  on  a  floppy 
diskette  which  contains  MEF.  MEF  will  create  two  scratch 
files  for  an  in-core  solution,  and  three  scratch  files  for 
an  out-of-core  solution;  the  names  of  these  files  will  begin 
with  $$  so  that  it  is  not  likely  they  will  coincidi:  with 
e.xisting  file  names. 

Once  the  initial  responses  to  MEF  have  been  macie, 
the  present  version  of  the  code  expects  all  input  to 
^rom  a  command  file,  or  the  console.  Attv:mptinq  to  input 


ELEMENT 

NUMBER  DESCRIPTION 

6  Three  noded  triangular 

plate  bending  element  for 
isotropic  or  orthotropic 
material s 
Notes : 

If  the  material  is  iso¬ 
tropic  properties  are 

5)  Young's  m.odulus 

6)  Poisson's  ratio 

7)  ,  8)  -  0 
If  orthotropic 

5)  D(l,l) 

6)  D(l,2) 

7)  D(2,2) 

8)  Di3,3) 

where  the  D(i,j)  are  the 
bending  stiffness 
elasticity  constants 


7  Twenty  noded  brick  for 
three  dimensional 
elasticity  problem.s 

8  Truss  element  for  2  or 
3  dimensional  problems 


REQUIRED  PROPERTIES 

1)  index  for  inte¬ 
gration  by 
Gauss-Radau  (1-5) 

1  =  least  accurate 
5  =  most  accurate 

2)  thickness 

3)  1  =  isotropic 

■  2  =  orthotropic 

4)  location  to  cal¬ 
culate  stresses 

1  =  centroid 

2  =  corner  nodes 

3  =  midnodes 

5)  -  8  )  according 

to  notes 

9)  specific  density 


1)  Young's  modulus 

2)  Poisson's  ratio 


1)  cross-section 

2)  Young's  modulus 

3)  density 


3 .  Running  MEF 

To  execute  MEF  as  installed  on  an  IBM  PC-XT  or  com¬ 


patible,  simply  boot  the  operating  system,  log  to  the  direc¬ 
tory  in  which  MEF . EXE  is  located,  and  type  MEF  followed  by 
a  carriage  return.  MEF  will  respond  by  asking  for  the  name 
of  the  comm.and  input  file.  The  response  be  any  legal 

MS-DOS  file  name,  including  a  disk  drive  identifier  (for 
example,  a : INPUT . DAT) .  If  the  response  is  the  MS-DOS 
identifier  CON  then  MEF  will  expect  to  receive  all  commands 
and  inputs  from  the  console  keyboard.  After  entering  the 
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entered  in  the  order  expected  by  the  element  routine.  Table 
IV  summarizes  the  properties  required  by  each  element  in  the 
correct  order.  For  those  elements  which  require  a  material 
density  property,  the  property  is  used  in  the  creation  of  a 
mass  matrix  for  the  solution  of  eigenvalue  problems.  This 
property  may  be  omitted  if  the  block  VALP  will  not  be  used. 
Element  5  is  not  implemented  in  this  version,  and  has  been 
left  out  of  Table  IV. 


Table  IV.  Element  Summary 


ELEMENT 

NUMBER  DESCRIPTION  REQUIRED  PROPERTIES 

1  Eight  noded  quadrilateral  1)  coefficient  DX 

for  anisotropic  harmonic  2)  "  DY 

problems  in  1,  2,  or  3  3)  "  DZ 

dimensions  4)  specific  heat 

capacity 

1)  Young's  modulus 

2)  Poisson's  ratio 

3)  0  =  plane  stress 

4)  specific  m.ass 

1)  Young's  modulus 

2)  Poisson's  ratio 

3) 0=  plane  stress 
1  =  plane  strain 

Tliroc  noded  triangular  1)  Young's  modulus 

element  for  2  dimensional  2)  Poisson's  ratio 

r-:.''^jions  of  unit  thickness  3)0  =  plane  stress 

1  =  plane  strain 

4)  X  body  force 
com.ponent 

5)  Y  body  force 
comiponent 

6)  specific  mass 


2  Eight  noded  quadrilateral 
for  2  dimensional  elasticity 
p  rob  1  em.s 

3  Six  noded  triangular 
clement  for  2  dimensional 
elisticit','  croblems 


EL  EM 


Reads  the  element  connectivities.  Also  reads  element 
group  information  when  more  than  one  element  type  is 
used,  or  when  elements  have  different  properties. 
Provides  automatic  element  generation. 


SOLC 

Input  of  concentrated  loads. 

SOLR 

Input  of  distributed  loads. 

LINM 

In-core  assembly  and  solution  of  a  linear  system  of 
equations . 

LIND 

Out-of-core  assembly  and  solution  of 
of  equations. 

a  linear  system 

NLIN 

Provides  a  limited  nonlinear  solution 
using  the  Newton-Raphson  method. 

capability 

TEMP 

Provides  the  solution  of  a  linear  or  nonlinear  time 
dependent  problem  using  an  Euler  method. 

VALP 

Computes  eigenvalues  and  eigenvectors 
space  iteration  method. 

using  the  sub- 

STOP 

Terminates  execution  of  the  problem. 

The  following  information  concerning  array  names  is 
provided  because  the  array  names  may  appear  in  the  output 
listings  with  no  explanation  when  verbose  printouts  are 
requested.  Block  COOR  creates  the  table  of  nodal  coordinates 
in  the  array  VCORG,  and  the  cumulative  degrees  of  freedom  in 
the  array  KDLNC.  Block  COND  stores  the  equation  identifica¬ 
tion  number  for  each  degree  of  freedom  in  the  array  KNEQ,  and 
the  specified  degrees  of  freedom  at  a  boundary  in  the  array 
VDIMP.  Block  ELEM  creates  the  array  KLD  which  contains  the 
location  of  tt>e  beginning  of  each  column  in  a  skyline  matrix, 
and  writes  a  disk  file  containing  all  information  pertinent 
to  the  description  of  an  element.  The  disk  file  will  bo  used 


times  through  the  loop  is  large  enough  to  insure  that  any 


p  . 
1. 

L 

I 

(  ■ 


error  induced  by  not  counting  the  clock  accesses 
insignificant . 


NO.  OF  TIMES 

CLOCK  CYCLES 

INSTRUCTION 

EXECUTED 

PER  EXECUTION 

MOV  BX,0A0h 

1 

4 

MOV  CX,00h 

1 

4 

DEC  BX 

160 

2 

JZ  ENDWAIT 

1  XFER 

16 

159  FAILS 

4 

DEC  CX 

1048576 

2 

JNZ  LOOPS 

1048560  XFERS 

16 

160  FAILS 

4 

JMP  WAIT 

160 

15 

Total  Clock  Cycles 

In  Loop 

Apparent  Clock  SPeed 


188745140  =3.56  MHz 
53 
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LS 

NO.  OF  CYCLES 
IN  LOOP _ 

4 

4 

320 

16 

636 

20971520 

167769600 

640 

24  00 

188745140 


.1 


CStG  SEGMENT  WRft  ’CODE’ 


i 

ASSUME 

? 

CS:CSE6, 

D3:CSEG,  SS;STACk5j, 

1 

0R6 

OlOOH 

PUSH 

DS 

;Save  DS  for  return  to  DOS,  and 

SUB 

AX,  AX 

;But  a  :ero  on  the  stack. 

PUSH 

AX 

MOV 

AX,  CSE6 

;Set  the  DS  register. 

MOV 

? 

DS,  AX 

s.  / 

LEA 

DX,  STARTMSG 

CALL 

OUTMSG 

; Out out  start  aessace 

I 

• 

;to  screen. 

4 

CAa 

4 

BEEP 

;BeeD  terninai  bell. 

► 

i 

4 

CALL 

GEHIME 

;Reads  clock  chio  and  stores 

L  ^ 

MOV 

STARTTW,  DX 

SBinutes  and  seconds  in  raewcry 

• 

{location,  STARTTM. 

1 

MOV 

BX,  OAOh 

{Initialize  counters  for  delay  looo 

c 

MOV 

4 

CX,  OOh 

{For  real  run  BX=OAOh 

4 

WAIT:  DEC 

BX 

{Run  around  in  circles  about 

JZ 

ENDWAIT 

{10  Billion  tines. 

LOOPS:  DEC 

CX 

p 

JNZ 

LOOPS 

JMP 

5 

WAIT 

4 

ENDUAIT: 

CAL. 

GETTIME 

{Read  the  clock  cnio  and 

Jl 

MOV 

4 

STOPTM,  DX 

jstore  in  menory  location  STOPTM. 

4 

CALL 

4 

BEEP 

{Been  terminal  bell. 

« 

4 

LEA 

DX,  ENDMSG 

CALL 

OUTMSG 

{Send  all  done  message 

► 

4 

{to  the  terminal. 

4 

;ELAPSED  TIME 

Conoute  elaosed  tine. 
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jElaosed  tiiie  is  assusiieci  less  than 
jone  minute. 


XOR 

X 

cx 

X 

CX 

jClear  AX. 

MOV 

BX,  STOPTM 

MOV 

CX,  STARTTM 

MOV 

AL,  BL 

;Stoo  time  in  seconcs  in  AL 

CMP 

BH,  CH 

;If  minute  has  incremented  during 

JE 

LBLA 

imait  loop  must  add  60  seconds  to 

ADC 

AL,  60h 

istop  time  to  compute  correct  celta  ' 

DAA 

;Ali  of  this  works  because  the  clock 

LBLfl: 

SUB 

AL,  CL 

iprovices  BCD  Quantities. 

DAS 

5 

MOV 

DX,  AX 

1 

CALL 

ASCCONV 

jConvert  elapsed  time  to  ASCII, 

LEA 

DX,  ELTIMEMS8;and  output  elapsed  time,  in  seconds. 

A 

CALL 

0UTMS6 

ito  the  screen. 

\ 

MOV 

AH,  ACh 

) Ret urn  to  DOS. 

t 

INT 

21h 

? 

EEEP 

OROC 

NEAR 

t)V 

AH,  OEh 

jSUBROLTriNE  to  seep  the 

MOV 

DL,  07h 

iterminal  bell. 

INI 

2ln 

RET 

E€£P 

ENOP 

4 

BETTIS 

PROC 

near 

MOV 

DX,  02C2h 

iSUBROUTINE  to  reads  system  clock. 

IN 

AX,  DX 

MOV 

DX,  AX 

;The  hours  are  placed  in  CX,  and  the 

RET 

ilow  orcer  count  (approK  10.2  counts 

SEHIME 

A 

ENDP 

;oer  second)  in  DX, 

t 

ou'mse 

PROC 

NEAR 

MOV 

AH,  09h 

jSUBROUTINE  to  cutout  string  pointed 

INT 

21h 

;to  by  DX. 

RET 

OUTHSG 

A 

ENDP 

5 

PSCCONV 

PROC  NEAR 

jConvert  elapsed  tine  to  ASCII. 

LEA 

SI,  ASCVAL+3 

:SI  points  to  least  significant 

NOV 


;digit's  storage  location, 
ilnitialize  loop  counter. 


CX,  OA 


^  ■  II  "I  ■  u 


ULC;  PUSH 

CX 

;Save  the  loop  count. 

MOV 

O 

X 

iShift  count  in  CX. 

AND 

AX.  OOOFh 

;Strip  right  sost  nybble. 

OR 

AX,  30ti 

;Convert  digit  to  ASCII  character. 

MOV 

CSn,  AL 

; Store  the  character. 

DEC 

SI 

MOV 

AX,  DX 

SHR 

AX,  CL 

jMove  the  next  digit  into  the  least 

MOV 

DX,  AX 

POP 

CX 

LOOP 

LBLC 

^significant  nybble. 

RET 

ASCCONV  ENDP 

? 

5 

STARTMSe  DB 

'Beqin  Mait 

loop' , ODh, OAh, OAh, OAh, ' $' 

ENDMSG  DB 

'End  Halt  loop’,0Dh,0Ah,'t' 

STflRHM  DU 

7 

STOPTM  DU 

1 

ELTIiCMSG  DB 

'Elapsed  tine  in  seconds:  ' 

ASCVAL  DB 

! 

'  $' 

! 

CSEG  ENDS 

1 


1 


STACKSG 

SEGMENT  PARA  STACK  'STACK' 

DU  80  DUP(’) 

STACKSG 

ENDS 

END 
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APPENDIX  B 


■  J* 


MATRIX  SOLUTION  TEST  PROGRAM 

The  following  FORTRAN  program  was  used  to  test  the 
capability  of  the  machine  to  solve  a  system  of  equations, 

[AJ  (X)  =  (B),  whose  coefficient  matrix,  [A],  required  more 
than  65,536  bytes  of  storage.  The  main  program  requests  a 
job  name,  and  the  number  of  equations  to  be  solved.  It  then 
fills  the  [A]  matrix  symmetrically,  in  banded  fashion,  with 
the  number  of  equations  (NEQ)  on  the  diagonal,  and  each 
subdiagonal  decreased  by  one  more  than  the  previous  sub¬ 
diagonal;  the  right  hand  side  of  the  system,  (B) ,  is  always 
a  vector  .of  100.0's.  For  example,  if  the  number  of  equations 
were  5  the  program  would  solve  the  following  system: 

54321  XI  100 

4  5  4  3  2  X2  100 

3  4  5  4  3  X3  =  100 

23454  X4  100 

1  2  3  4  5  X5  100 


The  program  stores  the  solution  and  the  solution  time  on 
the  disk  in  a  file  which  is  identified  as  jobname.DAT.  In 
addition,  the  results  and  solution  time  are  displayed  on  the 
console.  The  system  is  positive  definite  which  guarantees 
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that  no  processor  error  condition  will  occur  in  the  solution 
of  the  system.  The  number  of  steps  to  achieve  solution  is 
fixed  for  a  given  matrix  size,  and  the  amount  of  time  to 
achieve  the  solution  is  not  affected  by  the  accuracy  of  the 
answers.  In  short,  the  only  thing  which  is  of  interest 
here  is  being  able  to  run  a  series  of  benchmarks  which  are 
guaranteed  to  proceed  to  completion. 

The  elapsed  time  is  determined  by  successive  calls  to  an 
assembly  language  routine,  TICKER,  which  must  be  assembled 
separately  and  linked  to  the  FORTRAN  subroutines.  The 
routine  was  added  because  the  Microsoft  FORTRAN  compiler 
has  no  function  which  allows  access  to  the  system  clock. 

For  large  systems,  which  require  more  than  a  few  seconds  to 
solve,  the  program  could  easily  be  set  up  to  signal  the  user 
to  start  and  stop  timing  with  a  stop  watch.  However,  for 
smaller  systems,  such  as  the  25  and  32  DOF  tests,  the  elapsed 
time  is  too  small  to  determine  with  a  stopwatch.  Particularly 
when  the  results  are  to  be  used  to  predict  solution  times 
for  larger  systems. 


The  results  of  the  four  test  runs  are  as  follotts 


3. 846153846153aE+00 
-1.553S431443739E-15 
6.7087227108802E-15 
1.35054569l5A10e-15 
-4.094fl604l56610E-17 
1,64355136643£3E-15 
2.74534220e26B4£-14 
2. 1610766337363E-14 
3. 8461538461539E*00 

TIME  = 


FOR  TEST-1.  DAT 
The  Solution  Is 


6. 9269455534349E-15 
6.9501601786561E-15 
-1.267840e065005E-15 
4.A55008410786AE-15 
7.4119342420338E-15 
6.7101591336120E-15 
-1.9176192S9;666E-1A 
-9. 58976821 563A3E-1S 


.05767  MINUTES 


NEQ  =  25 


3.0303030303030E+00 
-5.3765407995A95E-I6 
2.06064960353876-15 
-4.760927045485AE-15 
-5.7766604500654E-15 
2.3465232733079E-15 
1.2880062543391E-1A 
-8.0694495013671E-15 
2.9480758  n  2488£-15 
-4.9194647979880E-15 
9. 7680238081 105E-15 


^03  TtST-2.DAT 
The  Solution  Is 

2.81961A03079AOE-17 
8.6583Aai992832£-lo 
7.  %858 163031652- 16 
2.0326A8!785032E-:5 
3.38271077315A8E-16 
1. 28830323 14559E-: A 
-3.90984505574092-15 
2. 1399342284950E-14 
2.29821948508992-14 
2.451769015A3372-1A 
3. 030303030 3030Et0(i 


-5.8183935461887E-15 
-7.39765116448196-15 
-4.8174716530773E-15 
-5.7056834326442E-15 
-7.32330380750746-15 
-2.0836013365002E-14 
-£.6%4397150294£-15 
-2. 13389bl97602££-14 


3. 1616483033404E-lt 
-2. 334£9824l3572E-:5 
2.:7Si;5732922S2-:5 
5.75347C14:3748E-;5 
-9. 029939;:39056E-:t 

^  *  3ww  T  *.*«”"  ** 

2. ; 585 1757556; EE-.: 
-2.tEc9a000l5E-E-;- 
-2.053C!6;3;5h-7E-;- 
-2. 4153037542:731- 14 


TIME  = 


.11800  MINUTES 


fOR  TES'^-S.DAT 
Tne  Solution  is 


9.900990099009SE-01 
6.651018%46372£-16 
6.0831650128I6K-15 
■2.00946371£3553E-15 
•2.8687989483966E-16 
•1. 1568290666613E-15 
8.7207840465378E-15 
■1.63904ne00061£-15 
•1.200A944875362E-14 
8. 198038677341 lE-15 
•4.1109406779441E-16 
1.2843962732201E-14 
4. 1975035e55025E-15 
2.0954050800393E-1A 
3.8276714669663E-i5 
•9.5233129178282E-15 
3.4023789901836E-14 
5.49193878642%E-!5 
■1.9756178267955E-14 
-2.5651465217669E-16 
■9.8171447719577E-15 
1.7386323809334E-14 
7.4810453570045E-14 
•5.2844278730221E-15 
•4.9256092013141E-14 
5.3017426386583E-14 
1.3768713958846E-14 
-5.53886637185%E-14 
■4.797677l901982E-i4 
1.0906959678161E-14 
2. 308430731 1326E- 14 
5. 5017140084367E-15 
3.6541630133710E-14 
9. 90099009900982-01 


9. 5453377 19570SE-17 
3. 160£280670'»582-17 
■7. 546075770401 1E-I5 
2.453384032S452E-15 
•1.4755330610054E-15 
1.5(i6783227ll87£  '5 
•1.2381694833975E-14 
■5.^)015339797!  12-15 
6.84726085355332-15 
■1.0210186519736E-14 
9.538?6861244i3£-:5 
■1. 11936526553442-14 
6.4546905439846E-15 
-9.00520875587732-15 
1.2806988307790E-14 
■7. 72326841392032-16 
•3.04i769a345392E-;4 
■2. 64346217822632-15 
3.9992584!96400£-:5 
■1.3820477797203E-15 
2.8267623241653E-14 
2. 17539266573372-15 
■3.772l279929513E-:4 
9. 2214384665882E-15 
2.63i7476194804E-;4 
■5.08043804088702-14 
•2.5653900778252E-14 
4. 74813496400732-14 
■5.46558005677702-15 
■4. 94749403392402-14 
■7.47405510!565:E-14 
■7. 29036268837542-14 
■a.2333428774833E-;5 


-6. 95407‘t2‘r9l0C22-  '.6 
-2. 18333853489562-16 
I.395S55915:«23E-;5 
-1. 472501825;34'32-1 5 
5.35C’4£554l5372-i2 
3. 04635927 1 3983  2- 1 5 
5.37593396248£;2-:5' 
1. 105&030982a3££-;4 
-4. 159839167£334£-;5 
2.27056408721892-15 
-1. 10860249732442-14 
-8.81453737861802-16 
-l.b955'94n76£62E-i4 
-1. 34‘i45643u1  1442-14 

5.a47048106;05?2-l5. 
-:.4I905695051432-;4 
1.31 108051209622-15 
1.95424609388922-14 
2. 12800275568252-15 
1.35285362994662-16 
•2. 63619150330632-14 
•5.40381878904532-14 
5. 60072803238212-. b 
2.8o65906£;6'?8c2-l4 
•l.74e321737534l£-:- 
■4.83113436338112-17 
5.13:78109490422-14 
1.4264847983392E-15 
4.57909625292922-14 
2. 563307a93'ii2l42-14 
8.10391115107722-14 
!.433336285l7002-;4 
1. 761 1461£06663i-.5 


P09  ^E3T-4.Dfl" 
The  Soiiition  Is 


4.9751243781094E-01 
-4.5243592796550E-17 
1.9287997925250€-16 
-2.9397240715860E-16 
3.5684193n3147E-15 
2. 2367031680076E-15 
2.3423274737h88E-15 
-2.3369I33923859E-15 
1. 481534731 1197E-15 
1.6098180082%2£-15 
4. 1142527518302E-15 
-1.34399710177252-16 
3.6405878180938E-15 
-7.4204493566424E-16 
-5. 58311975671086-15 
-1.1138016247761E-14 
-1. 27316679119006-14 
1.1129991569071E-14 
7,85445101362696-15 
-1.89082387026956-14 
-2.69844232679226-15 
-l,2559422095201£-!4 
8.91927803433096-15 
1.68310284175566-14 
-1.45288033653606-14 
-4.0419987736125E-15 
6.71438071878736-16 
-4.38368428982596-14 
-1.71596432521396-14 
9.50413494909376-15 
-5. 1536403462991E-14 
-1.76258284540%E-14 
8.26445811471346-15 
-1.35685621820206-14 
-2.22765788559386-14 
-3.14463210944056-14 
-7.63123552143596-15 
1.16938707431786-15 
-2.50216106651376-14 
8.a949331557590£-14 
4,80186240085356-15 
2. 3609456951757E-14 
-5.44177491680706-15 
-9.87572985924706-14 
4.27988777247216-15 
7.37055480197146-14 
4. 17427226963386-14 


8.  10407157699446-16 
4.82302476635596-16 
-4. 640779804 5721€- 16 
57590676174566-15 
-2.71606904127676-15 
-7.36109749592646-16 
-1.22659761489906-15 
4. 354559560550*36-15 
-2,88748307671526-15 
-6, 76811676050036-16 
2.55559527121636-16 
-1.02473405361236-15 
-2.62107667266036-15 
2. 0984858032874S-15 
-1.00060364066866-16 
9.90294453066566-15 
1.90411346207116-15 
-9. 47l92346r3579E-l5 
1.97399291060766-15 
2.50206281620636-14 
a.4713928861782£-i6 
1,54845534852526-14 
-2, 9080259039352E-15 
-3.43733091232306-15 
;. 25997906303636-14 
-9. 78929571497736-16 
-3.29142416392966-15 
4. 07639823589106-14 
1.48772036494566-14 
-2. 34082268820686-14 
3.16991864579876-14 
3.50685283040646-14 
-5.47126345421096-16 
2,35735205227756-11" 
3, 44388323522526-14 
-1.87119788540886-15 
-1.569142%52023£-I4 
1.15100627754836-14 
2,44492988081066-14 
-6.04293882305526-14 
-3. 69743251846036-14 
-4.83718594473276-14 
1.95558399710066-15 
5.79826078523086-1* 
-2,48175623375306-14 
-1.68944735752676-14 
1.50151254410236-14 


-6.  30227;.-*;G55036-;6 
-*.309468665£4836-:6 
1,: 736265 1770406- 15 
:.9e63393:;62546-:5 
-3. 230052  >60691 6- 15 
01406589926752-15 
-9. 4370203521462E-16 
-4.2&ai40;5579476-16 
-4.33481567124266-16 
-3. 302494 1 3704226- 1 5 
-4. 23306396142296-16 
5.95254172C092-'6-l6 
-4.13678556325296-.? 
1 , 45-'.i35446048536-1  5 
4.39873231627626-1; 
3.02209464829546-15 
-1.69080569857596-15 
-4. 0436363525305s- 1 j 
-2. 79236855119196-16 
-7.34769%716''956-15 
6. 03031299659466-15 
-1,58036363346126-14 
-1. 15402902959946-. - 
9.8243:756023556-15 
-1.16393537944596-14 
8.39054377995026-15 
2, 09764085760606-14 
- 1 . 44946345442726-1 4 
4. 51292550677186-. 5 
2, 46017309303496- > 
-2.46056582917226-:5 
-2.51816023523:56-14 
7, 70510442580226-15 
1. 63739633747792- > 
2.0*409836616656-16 
2. 16b522514;32(’6-:4 
1.83730671737796-. 4 
-8.20965138205256-15 
-4. 60525 1 1 442*44 6-14 
1.3a661743700856-> 
4.0256525174766.6-14 
7. 32109212268796-15 
5.77530319973146-14 
3. 18346  >2314396-15 
-2.20:60429340056-.- 
-6. 30079821590 336- > 
-7.61£09‘j39ei022E-:5 
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-a.2fl35011%A091£-!A  1. 2539;6533Sd34E'li  6oA;;£2;50! 

-1.002277 4539354c- 13  1. 1574453269464E-i3  -9.t'<3337E6ee“i9£-: 

4.3343a46624364£-14  -3.6739450392i36£-l-  1. 3t933:5031049Z-; 

7. 09398 1326846 IE- 15  2. 00 1 2673956 105E- 14  -1. 290969789539 :E-: 

2. a251919858608E-14  -6. 4663404204 3&2E' 15  -1. 40254955290: : 2-1 
-3.2055878018689E-14  1. 1309775543359E-14  1.905640466578:2-: 

-1.57647433910286-14  2. 3657361537963E-14  -1. 256779939880-2- 

-4.2716861775601E-15  -1.8147460594876E-15  -4.0l-;0S6S4335S2- 
1. 14057919063996-13  -5. 5741573151303E-14  -4. 246965£!555”2- 
-4.24530763452606-15  1.0362’532365526E-13  -8.32290454746762- 

2.9451463111826E-14  -2.8870846145435E-14  3.31015673298722- 

-6.8346372628696E-14  7. 3991561334720E-14  4.439726218:5062- 

-5.7453411423013E-14  1. 84 1339424529 IE- 14  2. 4737510482258E- 

4.14978545381186-14  -5.9210679251C86E-:4  -2.62462450691212- 
6.99639301726496-14  -  5. 3643566057255£-l^  -6. 0%4496532426E- 
2.6881322987547E-14  4.70340902834696-14  -6.13215869046342- 

-1.6406994082191E-I4  1. 90tj8330582435E-!5  6. 56053924328652-1 

-7.9561942476193E-14  1. 3378275230445E-:3  -1.3.24326477S592-: 

-9.1658330019724E-15  8.5868721046333E-14  -9. 8l"7:451900-32-: 

8. 43602:31805126-14  4. 97512437310926-01 

TIME  =  27.56250  ixlMU’ES 


NEQ  =  200 
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3»'c;"a"  -IS' 


$LAfi6E 

♦NOFLOfiTCALLS 

PROGRflM  SOLDP 

IMP-ICIT  DOUBLE  PRECISION  (ft-H,Q-2) 

INTEGER+4  ITIMEl,  ITIMEE,  CENTI 
DlttNSlGN  P(4<i000),  &(EOO).  JOBNA*E(E) 

CHflRflCTEfttli  IFN 
REAL»4  TIME 
QPEN(5,FILE='CGN’) 

0PEN(6,FIL£=’C0N’ ) 

WfilTE(6,*)  ’  *+♦♦♦♦♦  enter  fl  JOBNflME  (S  CHflRfiC'ERS  ’’AX) 
READ(5,10)  JOBNAfE 
10  FORMAT  (£W) 

WRITE (6,  H  ’  *******  enter  *-E  \'.>!BE.R  OF  E-WIONS  «♦♦♦♦♦' 
WRITE (6,*)  ’  (MUST  BE  £00  OR  -ESS  IN  THIS  VERSION)  ’ 
READ  (5,*)  f£Q 
RHS=100,ODO 
IEXT=’ DAT' 

cm.  RANEIJOBNAME.IEXT.IFN) 

0P£N(2, FIL£=IFN,  STRTUS='  NEW' ,  FCRM=’  '^CR’lAT'E;’  i 

NE(}M1=NE(}-1 

DO  100  I=1,N£Q«1 

B(I)=RHS 

II=(I-I)*NEQ+I 

A(II)=NEQ 

IP1=I+1 

DO  100  J=IP1,NEQ 
IJ=(J-1)*NEQ+I 
JI=( i~l) *N£0+J 
A(IJ)=N£y-J+; 

A(JI)=A(IJ) 

100  CONTINLE 
B(NEQ)=RnS 
NE(MQ=NEC»n£G 
A(NE(»)E3)=N£3 

CALL  TICKER! :'i*e:; 

CALL  ELL (A, NEE, 

CALL  SLVB!A,B,'.£Q) 

CAa  TICKER!;’;-’'!:) 

CENT!  =  ITI«E£  -  I'irE; 

TI)€  =  FLOA-'CE'.’’;'  SCCO. 

WRITE(£,9Sa) 

WfilTEIB.BSB)  ;t\ 

998  FORMAT (T£8,' FOR  A:;,,, 

♦  ’£3, ’’Re  Sol'jtic'i  , 'Eg,  ;5; :-=) ) 

DO  £00  I=1,NE0.3 
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JJ=I 

JJP=JJ+d 

IF(JJP.ST.,'€Q)  JJP  =  NEG 
WRITE<£,’  <iP3E£;2. i3i’) 

WRITE'S,’  (1P3E22. 13)’)  (&(K) ,  JJ", 
200  CONTINUE 

WRITE(6,999)  TII«E 
WRITE (2. 559)  TII’E 

599  FORMAT (/,5X,’  TIME  =  ’,F12,5,  ’  MINUTES’, 
WRITE  (2,  »)  ’  N'EQ  =’,NE3 

'write (6, t)  ’  NEQ  =’,.'€3 

aOSE(2) 

STOP 

END 


SUBROUTINE  ELU(fl,N) 
C 


C  *• 

C  THIS  SUBROUTIhC  DECOMPOSES  MATRIX  fl  IN’O  ft  LOWER  .Nr  ♦ 

C  triangular  and  an  upper  triangular  MATRIX,  *HE  CRISIvA.  MATRIX  * 

C  A  IS  REPLACED  BY  THE  TWO  TRIANGULAR  "ATRICES.  T-S  DIAGONAL  3.-  ♦ 

C  THE  LOWER  MATRIX  IS  NOT  NEEDED  SINCE  r  IS  A  oNT  ’RIRnGj-AR 

C  MATRIX.  THIS  IS  A  MODIFICATION  OF  A  SUBROU'INE  «RI"E\  I*. 

C  19S5  . 

C  ♦ 


COPYRIGHT  (C)  BY  GILLES  CANTIN 
MONTEREY,  CALIFORNIA,  24  JULY  1564. 


IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  All) 

NM1=N-1 

DO  100  K=1,NM1 
KP1=K+1 


KK=(K-l)tN+K 

AW<=A(KK) 

DO  100  I=HP1.N 

IK=(K-1)»N+I 

G=-AIIK)/AKK 

AIIK)=G 

DO  100  J=KP1,N 

IJ=(J-l)tN+I 


KJ=(J-1)*N+K 
100  A( ij)  =A ( I j;  i 

RETl’RN 
END 
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SJBROUTI^JE  5lVB(S, 

C 

c  * 

C  THIS  SUBROUTINE  DOES  A  BACKWARD  SLES';'.'::'-  -0l-3H£D  BV  A  * 

C  FORUfiRD  SUSBSTITUTiaN  OF  B  INTO  ft.  k.-t=Z  3  --S  fiLREflDY  BEEN  ♦ 

C  DEOMPOSED  BY  ft  CALL  TO  ElU.  ?■€  .EC^OR  B  IE  LEE'-E;:;  :  .j  ♦ 


C  REPLACED  BY  THE  ANSWERS  TO  THE  SYSTEM  OF  LINEAR  EE.ft':;' E.  ♦ 
C 


C 

IMPLICIT  DOUBLE  PRECISION  (ft-H,0-Z) 
DIMENSION  Ad). 8(1) 

N«1=N-1 

NP1=N+1 

DO  100  K=1,NM1 

KP1=«+1 

BK=B(K) 

DO  100  I=KP1.N 
IK=<K-1)»N+: 

100  B(I)=B(I)'^(IK)»BK 

NN=N*N 

B(N)=B(N)/ft(N,N) 

DO  300  K=E,N 
I=NP1-K 
J1=I+1 
BI=B(I) 

DO  200  J=J1,N 
IJ=(J-1)»N+I 
200  Bl=BI-A(IJj*B(J) 

B(I)=Bi 

ii=(!-i)tN+; 

300  B(I)=B(I)/P;i;) 

RETURN 

END 


I 
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IxT,  -V, 


c  ♦ 

c  THIS  suBfiouTM  TMs  AN  al-anwI'Etiz  :ce.',;’^e  ce.ca:\ed  » 

C  THE  ARRAY  JOBNAMEIE)  AND  CDNCA'ENA'ES  I’  wl'-  "-£  EX'EnSIDN  » 

C  NAJt  CONTAINED  IN  EXT  AND  RETOSNS  THE  CZvjrSEC  -I-E  V-rE  -.1'-  * 

C  A  PERIOD  SEPARATING  TrE  FIlE  NAttE  AND  -ILE  E/'ENEIEN.  '-E 
C  COMPLETE  NAME  IS  RETURNED  LE"  JUSTIFIED  IN  THE  A’PAv  ♦ 

C  THIS  VERSION  -^AKES  ADVANTAGE  OF  FORTRAN-77  AND  SHOU'.J  EE 

C  MACHINE  INDEPENDENT.  IT  HAS  WORKED  ON  T^E  VAX/TSO  » 

C  APOaO  MODEL  DN/300,  AND  THE  IBM  PC. 

C  ♦ 

CHrt*HHHK-»-»*-M**«*HHHHH-«*(HHHHHH**********t****»****«^»*********f**» 


COPYRIGHT  !C)  BY  GILlES  CANTIN 
MWTEREY,  CALIFORNIA,  24  JULY  1984. 


DIMENSION  J08NAME  (2) ,  (3) ,  JJOB  (2) ,  FFN (3) 

CHARACTER* 1  JOBCH ( S ) , FNCH ( 1 2 ) , EXTCH ( 4 ) , BLANK. PER I CD 
equivalence  ( JJOB ( 1) , JOBCH ( 1 ) ) , (EEXT, EXTCHt 1 ) ) , (FFN ( 1 ) ,  FNCH  U ) ) 
DATA  BLANK/’  '/.PERIOD/'.’/ 

DO  10  1=1,4 
EXTCH(I)=BLANK 
DO  20  1  =  1,8 
JOBCH(I)=BLANK 
DU  30  1=1, 12 
FNCH(I)=BLANK 
DO  40  1  =  1,2 
JJ0B(I)=J0ENAME(!) 

EEXT=EXT 

EXTCH(4)=EX-CHi3) 

EXTCH(3)=EXTH(3) 

EXTCH(2)=£XTt(:i 
EXTCH(!)=3ER!CD 
DO  50  1  =  1,8 

IF(JOBCH'I),-iE.E.ANKi  11  =  1 

FNCH(I)=JOBCH;Ii 

IL=II+1 

IH=lL+3 

DO  60  I=:L,  IH 

III=I-1I 

FNCH(I)=EX'CM(IHi 
DO  70  1=1,. 

FN(II=FFN(I; 

RETURN 

END 
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SOLUTION  (  PRINT  SOLUTION 


FUNCTIONS  COMMON  TO  THE  SOLUTION  AND  PRINTING  THE  SOLUTION 
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FUNCTION  COMMON  TO  CONSTRUCTION  OF  GLOBAL  MATRICES 


(LINM 


FUNCTIONAL  BLOCK  LINM 


FUNCTIONAL  BLOCK  SOLE 


FUNCTIONAL  BLOCK  SOLC 


FUNCTIONAL  BLOCK  ELEM 
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FUNCTIONAL  BLOCK  PREL 


FUNCTIONAL  BLOCK  DLPN 


77 


(raOR) 


FUNCTIONAL  BLOCK  COOR 
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M.E.F. 


APPENDIX  C 


OVER- ALL  FUNCTIONAL  BLOCK  DIAGRAM 


M 


POP  DX 

POP  CX 

POP  BX 

POP  fix 

POP  BP 

RET  4 

TICKER  ENDP 
CODE  ENDS 
END 


SUBROUTINE  TICKERC'INE) 


1 

!  THIS  IS  AN  BOfla  ftSSEHELY  LANGUAGE  RUij'isE 

;  ADAPTED  FROM  A  PROGRAM  WRITTEN  BY  «.  C_S''  O' 

;  BOSTON  COMPUTER  SOCIETY,  iNE  CEX'ER  PuAZA,  BCSTE 
;  MASS  OeiOa.  THE  ORIGINAL  VERSION  wAS  -OR  YICSCS 
;  FORTRAN  V3.1,  AND  WAS  PUBLISHED  IN  BYTE  .'AGAZINE 
;  FEB  198A,  THIS  VERSION  HAS  BEEN  MODIFIED  ’G 
;  CONFORM  TO  THE  CALLING  CONVENTION  FOR  <IC.RCSOF' 

;  FORTRAN  V3. 8. 

! 

i  AS  IN  THE  VERSION  WRITTEN  BY  CLAF?^.  THIS  VERSION 
;  EXTRACTS  THE  BCD  TIME  FROM  DOS,  AND  RET’jRNS  THE 
;  RESULT  TO  THE  CALLiXffi  PROGRAM  IN  CENTISECONDS. 

5 

DATA  SEGMENT  PUBLIC  'DATA' 

DATA  ENDS 
DGROUP  GROJP  DATA 

CODE  SEGMENT  'CODE' 

ASSUME  CS:CODE,DS:DGROUP,SS:DGROUP 
PUBLIC  TICKER 
TICKER  PROC  FAR 

PUai  BP 

MOV  BP,SP 

PUSH  AX 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  AH,  OiCH 

INT  021H 

XCHG  CX,DX 

MOV  AL,  CH 

MOV  BL,  100 

MUL  BL 

MOV  CH,  0 

ADD  CX,  AX 

MOV  AL,  DH 

MOV  BL,  60 

MUL  BL 

MOV  DH,  0 

ADD  AX,  DX 

MOV  DX.  0 

MOV  BX,  6000 

MUL  BX 

ADD  CX,  PX 

ADC  DX,  0 

LES  BX,  DWORD  PTR  [BP+6j 

MOV  ES:CBX],CX 

MOV  ES:CBX+2],DX 


LIND 


FUNCTIONAL  BLOCK  LIND 


CONSTRUCT  GLOBAL  MATRICES  ON  DISK 
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FUNCTIONS  COMMON  TO  CONSTRUCTION  OF  GLOBAL  MATRICES 

ON  DISK 
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AND  PRINTING  THE  DISK  SOLUTION 


FUNCTIONAL  BLOCK  NLIN 


NONUNEAR  ASSEMBLY  AND  SOLUTION 


FUNCTIONS  FOR  NONUNEAR  ASSEMBLY,  SOLUTION,  AND  PRINTING 


TEMP 


FUNCTIONAL  BLOCK  TEMP 


FUNCTIONAL  BLOCK  VALP 


ASSEMBLY  FUNCTIONS  FOR  EIGEN  VALUE  PROBLEM 


APPENDIX  D 


SAKPLE  PROBLEMS  AND  SOLUTIONS 


Conduction  heat  transfer  problem  for  comparison  with 
the  results,  of  Dhatt  and  Touzot 


concrete  plate 


d  =  d  =  d  =  1 .4  w/(m  °C) 

^  J 

C  =  2.03  X  10®  J/(m®  °C) 

constant  heat  flux  on  inside  =  1 

The  distributed  boundary  condition  on  the  inner  circle 

is  replaced  by  consistent  concentrated  nodal  values: 

nodes  1,17=  0.6545 
nodes  6,  14  =  0.2618 
node  9  =  0.1309 
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In  the  analysis,  the  double  symmetry  allows  only  one  quarter 
of  the  plate  to  be  considered. 
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F.E.M.3. 

G.TOUZOT,  G.DHflTT 
MODIFIED  BY 

REhE  E,  RUESCH 


IMflGE  OF  DATA  CARDS 


COLUMN  NUMBER 

CARD  13  3  4  5  6  7  8 

NUMBER  123456789013345678901234567890i33456789C183456783<ilc34567890123A567890:234567S90 


1  COMT 

2  HEAT  TRANSFER  IN  A  PERFORATED  SQUARE  PLATE 

3  SW1PLE  PROBLEM  TO  COMPARE  RESULTS  OF  MEF  ON  THE  IBM  PC 

4  WITH  THOSE  OF  THE  AUTHORS,  DHAn  AND  TCU2GT 

5 


8 

COQR 

7 

21  1 

2 

0.5 

0.5 

8 

1  0.0 

1.0 

0,0 

5  0.0 

3.0 

0. 0 

9 

6  0.3827 

0.9239 

0.0 

8  1.5 

3.0 

0.0 

10 

9  0,707 

0.707 

0.0 

13  3.0 

3.0 

0.0 

11 

14  0.9239 

0.3827 

0.0 

16  3.0 

1.5 

0.0 

12 

17  1.0 

0.0 

0.0 

21  3.0 

0.0 

0,0 

13 

0 

14 

COND 

15 

16 

13  16 

21 

17 

0 

18 

PREL 

19 

1  4 

20 

1  1.4 

1.4 

1.4 

2. 03E6 

21 

0 

22 

ELEM 

23 

4  8 

1 

24 

1  2 

8 

1  1 

1  1 

6  9 

10  11 

7  : 

25 

3  2 

8 

1  1 

1  3 

7  11 

12  13 

8  : 

26  0 

27  SOLC  3 

28  1  0.06545 

29  1  17 

30  2  0,1309 

31  9 
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32 

3 

0,2618 

33 

6 

14 

34 

0 

35 

LINN 

36 

1 

37 

STOP 

CARD  1234567a901c:345678901254567a90123A5673501£34567S90123456789012345678SO:£345676:r:: 

NUffiiER  1  2  3  4  5  6  7  3 

CQLUPIN  NUMBER 


END  OP  DA"A 


COWCNTS 


HEAT  TRANSFER  IN  A  PERFORATED  SQUARE  PLATE 
SAMPLE  PROBLEM  TO  COMPARE  RESULTS  OF  «EF  ON  THE  IB«  PC 
WITH  THOSE  OF  THE  AUTHORS,  DHAH  AND  TOUZOT 


INPUT  OF  NODES  (M=  0) 

(NNT)=  21 
(NDLN)=  1 
(NDI«)=  2 

{FRC)=  .50000E+00  .  50000E+D0  .iOOOOEH)! 
(NVA)=  20(100 


INPUT  Cr  BOUNDARY  CWDITIONS  (W=  0) 


BOUNDARY  CONDITIONS  CARDS 

)>))>  1000000000  .OOOOOE+00  .(YXKIOE+OO  ,OOOOOE+O0  ,  000002+00  .OOCKiOE-^OO  .OOOwE-rOO  .  OOWOE-^oO 

)>>>>  13  16  21  0  0  0  0  0  0  0  0  0  0  0  j 

)>>>  >0000000000  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  ,OOOOOE+O0  .OOOOOE+00  .OOOOOE+00  .OOOOOE*:i:' 


TOTAL  NUMBER  OF  NODES 

(NNT)= 

21 

TOTAL  NUMBER  OF  0,0.  F. 

(NDLT)  = 

21 

NUMBER  OF  EQUATIONS  TO  BE  SOLVED 

(NEQ)= 

18 

NUMBER  OF  PRESCRIBED  NON  ZERO  D.O.F. 

(NaNZ)  = 

0 

MUMBER  OF  PRESCRIBED  ZERO  D.O.F. 

(NaZ)  = 

3 

MAX,  NUMBER  OF  NODES 
MAX.  NUMBER  OF  D.O.F.  PER  NODE 
DIMENSIONS  OF  THE  PROBLEM 
COORDINATE  SCALE  FACTORS 
WORKSPACE  IN  REAL  WORDS 
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TOTAL  NUMBER  OF  PRESCRIBED  D.O.F.  iNCLT)=  3 


NODAL  COORDINATES  ARRAY 

D.L,  X  Y  Z  EQUATION  Nl^'^BER  (NEC/i 


1 

1  .OOOOOEOO 

.50000E+00 

.OOOOOE+00 

1 

2 

1  .OOOOOE+00 

.  75000E+00 

.OOOOOE+OO 

2 

3 

1  .OOOOOE+00 

. lOOOOE+01 

.  OOOOOE-KK) 

3 

A 

1  .OOOOOE+00 

.  12j00E+01 

.  OOOCOE+OO 

A 

5 

1  .OOOOOE+00 

.  15000E+01 

.  OOOOOE+OO 

5 

S 

1  . 19135E+00 

.  A6195EHxj 

.  OOiXiCE+OO 

S 

7 

1  .A7068E+00 

.98097E+00 

.  OOOOCE+<jO 

-! 

8 

1  .75000E+00 

.  15000E+01 

.  OOOOOE+OO 

3 

9 

1  . 35350E+00 

.  35350E+00 

.  OOOOOE+LiO 

9 

10 

1  .64013E+00 

.6A013E+00 

.  CkXi00£+<)0 

10 

11 

1  . 92675E+00 

.  92675E+00 

.  OOOOOE+OO 

;i 

12 

1  .1213AE+01 

.  1213AE+01 

.  OOOOOE+OO 

12 

13 

1  . 15000E+01 

.15000E+01 

.OOOOOE+OO 

_  1 

lA 

1  .A6195E+00 

.  19135E+00 

.OOOOOE-K)0 

13 

15 

1  .9fl097E+00 

.  47068E+00 

.OOOOOE+OO 

14 

IS 

1  . 15000£-A)1 

.  75000£-K)0 

.OOmEHK) 

-2 

17 

1  .50000E+00 

.OOOOOE+OL 

.OOOOOE+OO 

15 

18 

1  .75000e+00 

.OOOOOE+00 

.  OOOOOE+0<) 

16 

19 

1  . lOOOOE+01 

.OOOOOE+00 

.OOOOOE+OO 

17 

20 

1  . 12500E+01 

.OOOOOE+00 

.OOOOOEi-OO 

18 

21 

1  .15000E+01 

.OOOOOE+00 

.OOOOOE+OO 

-3 

INPUT  Of  Element  properties  (m=  o) 


NUMBER  OF  GROUPS  OF  PROPERTIES  (N8?E)= 
NUMBER  OF  PROPERTIES  PER  GROUP  (NPRE)= 


CARDS  OF  ELEMENT  PROPERTIES 

>>)>>  1  .14000E+01  .lAOOOE+01  .IWOOE+OI  .E'OoOOE+'TT 

)  > ) ) )  0  . 0000(£*00  .  0000(€+<X)  .  OOOOOE+00  .  OOOOOt-OO 


INPUT  OF  ELEMENTS  (M=  0) 


MAX.  NUMBER  OF  ELEMEN'S  (NELT)=:  4 
MAX.  NUMBER  OF  NODES  PER  ELEMENT  (NNED-  b 
DE-AULT  ELEMENT  rXP£  (NTPE)=:  1 
NUMBER  OF  GROUPS  ELEMENTS  (NGRE)= 

INDEX  FOR  NON  SYMMETRIC  PROBLEM  (NSYM)=  0 
INDEX  FOR  IDENTICAL  E.EMENTS  (NIDENT)=  0 
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RD-A152  681  IHPLEHENTRTION  OF  R  GENERRL  FINITE  ELEMENT  CODE  ON  RN  2/3  ' 
IBM  PC  COHPRTIBLE  HICROCOMPUTER<U>  NRVRL  POSTGRRDURTE 
SCHOOL  nONTEREV  CR  R  E  RUESCH  SEP  84 


UNCLASSIFIED 


F/G  9/2 


NL 


.6 


MICROCOPY  RtSOLUTION  ItSI  CHART 

hU«»'‘U  Oi  I’K'-  •• 


ELEMENT:  1  TYPE:  1  N.P.: 

8 

D.C.F. : 

a  N. 

0 

El.  PROP: 

^  GROUP:  1 

CONNECTIVITY  (NE)  1 

6 

9 

10 

11 

T 

3  2 

ELEMENT:  2TYPE:1N.P.: 

8 

D.O.  F.: 

8  N.  AROP: 

0 

I_.  PROP: 

p  GROUP:  1 

CONNECTIVITY  (NE)  9 

14 

17 

18 

19 

15 

11  10 

ELEMENT:  3  TYPE:  1  N.P.: 

a 

D.O.F.: 

a  N.  PROP: 

0 

EL,  PROP: 

4  GROUP:  ; 

COrWECTIVITY  (NE)  3 

7 

11 

12 

13 

8 

5 

4 

ELEMENT:  4  TYPE:  IN.?.: 

a 

D.O.F.: 

8  N.  PROP; 

0 

EL.  PROP: 

4  GROUP:  1 

CONNECTIVITY  (NE)  11 

15 

19 

20 

21 

16 

13 

12 

«RN  BAND  t€ISHT=  5.3  «fiXI«U«=  10 

LENGTH  OF  A  TRIAre.E  IN  KG  (NKG)=  95 

NUMBER  OF  INTEGRATION  POINTS  (NP8)=  36 


INPUT  OF  CONCENTRADED  LOADS  (M=  3) 


TABLE  FG  GOES  FROM  VA(  111)  ’G  vAi  liH) 

CARDS  OF  NODAL  LOADS 


))))) 

))))) 

1 

1 

.65450E-01 
17  0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

))))) 

))))) 

2 

9 

.13090E+00 

0  0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

))>)) 

)>))) 

3 

6 

.26180E+00 
14  0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

>)>)) 

0 

.OOOOOE+OO 

00  .OOOOOE+00 


TOTAL  LOAD  VECTOR 

.65450E-01  ,0OOOOE+OO  .OOOOOE+OO  .OOOOOE+OO  .OOOoOE+00  .261B0E+O0  .OOOOOE+00  .OOOOOE+00  .150 

.OOOOOE+OO  .OOOOOE+OO  .26iaOE+00  .OOOOOE+OO  .65450E-01  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+Ovi 


ASSEMBLING  AND  LINEAR  SOLUTION  (M=  0) 


INDEX  FOR  RESIDUAL  COMPUTATION  (NH£S)=  1 

ENERGY  (ENERG)=  .42653E+00 

ABSOLUTE  VALUE  OF  MINIMUM  PIVOT  =  .97469E+00  EQUATION:  5 

ALGEBRAIC  VALUE=  .97469E+00  EQUATION:  5 
DETERMINANT  =  . 14103E+09  ♦  10  «  0 


MAX.  RESIDUAL  VALUE=  .26262E-15  EQUATION  6 
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SOLUTION 


NODES 

X 

Y 

1 

.OOOOOE+00 

.500006+00 

2 

.OOOOOE+00 

.750006+00 

3 

.000006+00 

.100006+01 

4 

.oooooe+00 

.  125006+01 

5 

.OOOOOE+00 

.15000E+01 

6 

. 19135E+00 

.461956+00 

7 

.47068E+00 

.980976+00 

a 

.75000E+00 

.150006+01 

9 

.35350E+00 

.353506+00 

10 

.64013E+00 

.640136+00 

11 

.92675E+00 

.926756+00 

12 

.12134E+01 

.  121346+01 

13 

.15000E+01 

.150006+01 

14 

.46195E+00 

.191356+00 

15 

.980976+00 

.470686+00 

16 

.15000E+01 

.75000E+00 

17 

.500006+00 

.000006+00 

18 

.750006+00 

.000006+00 

19 

.lOOOOE+Ol 

.000006+00 

20 

.12500E+01 

.000006+00 

21 

*.150006+01 

.000006+00 

GRflDIENTS  IN  ELEMENT  :  I 


P.6.  : 

1  COORDINATES 
GRADIENTS 

P.G.  : 

2  COORDINATES 
GRADIENTS 

P.6.  : 

3  COORDINATES 
GRADIENTS 

P.G.  : 

4  COORDINATES 
GRADIENTS 

P.G.  : 

5  COORDINATES 
GRADIENTS 

P.G.  : 

6  COORDINATES 
GRADIENTS 

P.G.  : 

7  COORDINATES 
GRADIENTS 

P.G.  : 

8  COORDINATES 
GRADIENTS 

P.G.  : 

9  COORDINATES 
GRADIENTS 

Z  DEGREES  0.-  -TEEDOr 


.000006+00 

.5752CE+00 

.000006+00 

.44681E+00 

.OOOOOE+00 

.37137E+00 

.OOOOOE+00 

.333266+00 

.OOOOOE+00 

.32317E+00 

,OOOOOE+O0 

.56684E+00 

.000006+00 

.317566+00 

.000006+00 

.21866E+00 

.000006+00 

.53887E+0O 

. OOOOOE+iO 

.333006+00 

.OOOOOE+00 

. 19818E+0O 

.000006+00 

.93103E-01 

.OOOOOE+00 

.000006+00  ♦ 

. OOOOOE+00 

.522696+00 

.000006+00 

.21421E+00 

.OOOOOE+<X) 

.OOOOOE+OO  ♦ 

.OOOOOE+00 

.50587E+00 

.OOOOOE+00 

.357496+00 

.000006+00 

.22597E+00 

.OOOOOE+OO 

. 10981E+00 

.OOOOOE+00 

.000006+00  ♦ 

52632E-01  .55A06E+00 
11372E+00  -.aiOGSE-KK) 
76K3E-01  ,74ai8£+'X) 
12315E+00  -.57153EKK) 
10041E+00  .9*23(iE+(iO 
11487E+CI0  -.33465E+00 
22283E+00  .5E044E+00 
41886E+00  -.70605E+00 
33101E+00  .721462+00 
33351E+00  -.49289E+00 
43919E+00  . 922466+00 
28656E+00  -,25907E+0(> 
37650E+00  ,44697E+00 
65190E+00  -.47047E+00 
5723C:+00  .66307E+00 
51763E+00  -.32390E+00 
76823E+00  .879;6£+00 
44680E+00  -.119836+00 


P.6.  ; 

1  COORDINATES 
GRADIENTS 

P.G.  : 

2  COORDINATES 
GRADIENTS 

P.6.  : 

3  COORDINATES 
GRADIENTS 

P.6.  : 

4  COORDINATES 
GRADIENTS 

P.6.  : 

5  COORDINATES 
GRADIENTS 

P.6.  : 

6  COORDINATES 
GRADIENTS 

P.6.  : 

7  COORDINATES 
GRADIENTS 

P.6.  : 

8  COORDINATES 
GRADIENTS 

P.6.  ; 

9  COORDINATES 
GRADIENTS 

.  44697E+00  .  3765C'E<-iX) 
-.71704EtOO  -.4CI96CE+00 
.66307E+00  .  57236E+.X' 
-.6036£E'K)0  -.2562C€^-jO 
.87916E+00  .768E3£*-00 
-.45595E+00  -.14059E-K)0 
■52044E+00  .3dES3E+00 
-.8e575E+C0  -.c'4160E+C0 
,72146E+00  .  3310l£+«i 
-.73534E+00  -,17979E*0O 
.92248E+<Ki  .43919E+00 
-.59060E+00  -.107442+00 
,  55406c +(>0  .  52632E-01 
-.8%;7E+00  -,i724;£-ui 
. 74818E+00  . 76523E-01 
-.78959E+00  -.75875E-0: 
.94230£+<XI  .;iX>41E+(iO 
-.69255E+00  -.569e6c-0l 


GSflOIENTS  IN  ELEI€NT  :  3 


P.6.  ; 

1  COORDINATES 
GRADIENTS 

P.G.  ; 

2  COORDINATES 
GRADIENTS 

P.G.  : 

3  COORDINATES 
GRADIENTS 

P.G.  : 

4  COORDINATES 
GRADIENTS 

P.G.  : 

5  COORDINATES 
GRADIENTS 

P.G.  : 

6  COORDINATES 
GRADIENTS 

P.G.  ; 

7  COORDINATES 
GRADIENTS 

P.G.  : 

8  COORDINATES 
GRADIENTS 

P.G.  : 

9  COORDINATES 
GRADIENTS 

.U432E+00  .Hi552E-o: 

IIOSIE+OO  -.25454E+00 
.138212+00  .12494E+01 
-.116482+00  -.  14037E+IX) 
.162i0€+00  .144352+':  I 
-.131202+00  -.25I25E-0! 
.502162+00  .!0395E+<;': 
-.277112+00  -.2')122£+':i0 
.610346+00  .124052+i,n 
-.280592+00  -.  115732+00 
.718522+00  .144152+01 
-.295732+00  -.240602-01 
.882222+00  .100492+01 
-.438172+00  -.869222-01 
.107812+01  .122102+01 
-.443352+00  -.286342-01 
.127402+01  .143712+01 
-. 460202+00  , 402:82-01 
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GRADIENTS  IN  ELEMENT  :  4 


P.G.  : 

1 

COORDINATES 

1  .10049E+01  .3a222E+(iO 

GRADIENTS 

;  -.46122EtOO  -.9944cE-^l 

P.G.  : 

2 

COORDINATES 

;  . 12210E+01 

.  10781Et01 

GRADIENTS 

-.46380E+00  -.473562-01 

P.G.  : 

3 

COORDINATES 

.143712+01  .1274(i£+01 

GRADIENTS 

-.454blE+00  -.345652-02 

P.G.  : 

4 

COORDINATES 

1  . 10395E+O1 

. 5021&E+00 

GRADIENTS 

;  -.57615E+00  -.74137E-01 

P.G.  : 

5 

COORDINATES 

:  . 12405E+01 

.  61034E+(i(i 

GRADIENTS 

-.55835E+00  -.361362-01 

P.G.  : 

G 

COORDINATES 

.14415E+01  .718522+00 

GRADIENTS 

-.53562E+00  -.723412-02 

P.G.  : 

7 

COORDINATES 

!  . 10553E+01 

.11432E+00 

GRADIENTS 

1  -.65031E+00  -.362702-01 

P.G.  ! 

8 

COORDINATES 

1  . 12434E+01 

. 13821E+00 

GRADIENTS 

-.6223SE+00  -.EOOSCC-Ol 

P.G.  ! 

9 

COORDINATES 

.14435E+01  .162102+00 

GRADIENTS 

-.59403E+00  -.429412-02 

EDUILIBRIUN  RESIDUALS  AND  REACTIONS 


ICDES 

X 

Y 

Z 

DEGREES  OF  -REEDOM 

1 

.OOOOOE+00  .500002+00 

.000002+00 

.000002+0(1 

2 

.OOOOOE+00  .75000E+00 

.000002+00 

-. 103992-15 

3 

.OOOOOE+00 

.100002+01 

.000002+00 

.277562-16 

4 

.OOOOOE+00 

. 125002+01 

.OOOOOE+00 

-.77743E-16 

5 

.oooooe+00 

. 150002+01 

.000002+00 

. 13109E-i5 

6 

.19135E+00  .461952+00 

.000002+00 

-.E7756E-15 

7 

.470682+00  .380372+00 

.OOOOOE+00 

-.11 1022-15 

8 

.750002+00 

. 150002+01 

.000002+00 

-.637152-16 

3 

.353502+00  .35350E+00 

.000002+00 

.37470E-15 

10 

.64013E+00  .64013E+00 

.0(K)O0E+OO 

-.40246E-15 

11 

.926752+00 

.926752+00 

.000002+00 

.3053IE-15 

12 

.121342+01  .121342+01 

.000002+00 

. 19429E-15 

13 

.150002+01 

.150002+01 

.000002+00 

-. 1028e£+00  » 

14 

.461952+00 

. 19135E+00 

.000002+00 

.i;i02E-15 

PRISCTIB 
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15 

.98097E+00 

.47068E+00 

.OOOOOEKiO 

.!:10£E-I5 

IS 

. 15000E+01 

.75(K)OE+00 

.  OOCxXiE+OO 

-.52531E+CKI  ♦ 

17 

.50000E+00 

.OOOOOE+00 

.OOOOCE+OO 

13878E-16 

18 

.75000E+00 

.OOOOOE+00 

.OOOOOE+00 

-.25562E-15 

19 

.lOOOOE+01 

.OOOCOE+00 

.OOOOOE+CK) 

.69389E-16 

20 

.  12500E+01 

.  OOOOOE+00 

.  OOOOOE+OO 

.  107’4E-15 

21 

. 15000E+01 

.OOOOOEhiO 

.OOOOOE+OO 

15722E+<)0  * 

END  OF  PROBLEM,  314  UTILIZED  REAL  WORDS  OVER  20000 
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r.  E.  3. 

G.TOUZOT,  S.DHflTT 
WDIFIED  BY 

REHE  £.  RUESCH 


IMflGE  OF  DATA  CARDS 


CARD 

NUMBER 


1 


COLUMN  NUMBER 
3  3  4  5 


l£345678901234567890123456769012345678B0i3345E73%1334567B9(jl£345b76901£34567350 


CQMT 

ELASTIC  ANALYSIS  OF  AN  ELuIPTIC  HALF  BRIDGE  ARCH  IN  PLANE  S’ 

SfWPLE  PROBLEM  TO  COMPARE  THE  RESULTS  OF  YEF  ON  THE  IBM  PC 

WITH  THOSE  OF  THE  AUTHORS,  DHATT  AND  TGL'ZOT 


1 

1 

[ 

1 

I 

[ 

1 

£3 

SO 


6.50 

5.75 


CARD  l234567890l2345678901234567890l234567390!E:345€7e90!i3N567390:£34557390;£S-5b73SO 

NUMBER  12345676 

COLUMN  NUMBER 


106 


•i 

% 


COLUMN  NU''BER 

CARD 

1 

2  3 

4  5  3  7  2 

J 

d 

NUMBER 

12345678901234567890123456783012 

3456769012345678901234567a90:2345s7a90;234;3:ri0 

1 

2B 

22 

6.50 

2.62 

29 

-1 

30 

CONO 

31 

11 

St 

m 

32 

26 

27  28 

< 

33 

10 

. 

34 

1 

2  3 

25  21  22 

23 

* 

35 

0000000000 

36 

PREL 

37 

1 

4 

i 

38 

1 

2.0E6 

0.3  0.0 

2.3 

39 

-1 

40 

ELEM 

*. 

41 

5 

8  2 

1  0 

> 

42 

1 

4  5 

0  1  0 

1  4  6  7  8  5  3  2 

'( 

43 

5 

1  0 

0  1  0 

26  27  28  25  21  19  16  24 

n 

i 

44 

-1 

1 

45 

SOLC 

46 

1 

0.00 

-10.00 

47 

3 

48 

-1 

49 

SOLR 

i 

50 

VALP 

1 

51 

3 

20  0.001 

0.0 

5  0  12  l.D-12 

52 

STOP 

CARD 

12345678901234567890I23456789012345678901234567S90:2345678S01234567890123456'6?0 

- 

NUMBER 

1 

2  3 

4  5  6  7  3 

i 

COLUMN  NUMBER 

END 

OF  DATA 

• 

COWCNTS 


ELASTIC  ANALYSIS  OF  AN  ELLIPTIC  HALF  BRIDGE  ARCH  IN  PLANE  STRESS 
SAMPLE  PROBLE?!  TQ  COMPARE  THE  RESULTS  OF  MEF  ON  THE  IBM  PC 
WITH  THOSE  OF  THE  AUTHORS,  DHAH  AND  TOUZOT 


INPUT  OF  NODES  (M=  0) 

j 
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mx.  NUMBER  OF  .^COES  (NNT)=  =8 
MAX.  NUMBER  OF  D.O.F.  ^'ER  NODE  (NDlN)=  2 
DI.'ENSIONS  C-  the  PROBLEM  (NDIM)=  £ 

COORDINATE  SCALE  FflCTCRS  (-AC)=  .  lOOOOE+Ol  .lOOOOE+Oi  .lOOOOE-KiL 
WORKSPACE  IN  REAL  inORDS  (NVA)=  ECOOO 


INPUT  OF  BOUNDARY  CONDITIONS  (M=  0) 


BOJNDARY  CONDITIONS  CARDS 

)>)>)  1 100000000  .OOOOOE+OO  .0<XiO0E+O0  .0<XkXiE+00  .COOOOE+00  .  000(iOEt0O  .COOOCEfOO  .OGOOClt'Iv 

) ) ) )  >  26  27  £3  0  0  0  0  0  0  0  C  0  0  j  0  0 

)>)) >1000000000  .OOOOOE+OO  .(X)000E+(O  .OOOOOE+OO  .OOOOOE+OO  .OOOOCC+00  .  L'.OOOE+OC  . COj'.OE-  '!■ 


) 

1  £ 

3  25  21  £2  23 

0  0  0  0  0 

0  j 

•)  j 

>0000000000 

.OOOOOE+OO 

. OOOOOE+OO  . OOOOOE+OO 

.  COOOOE+-X>  .  OOOOOE+OO 

. OOOOOE+OO 

. OOoOOE+OO 

TOTAL  NUMBER  OF  NODES 

!NNT>= 

26 

TOTAL  NIWBER  OF  D.O.F. 

(NDLT)= 

56 

NUMBER  OF  EQUATIONS  TO  BE  SOLVED 

(NEQ>= 

43 

NUtffiER  OF  PRESCRIBED  NON  ZERO  D.O.F. 

(NCLNZ>= 

0 

MUMBER  OF  PRESCRIBED  ZERO  D.O.F. 

(NCLZ>= 

13 

TOTAL  NUMBER  OF  PRESCRIBED  D.O.F. 

(NaT)  = 

13 

NODAL  COORDINATES  ARRAY 


NO 

D.L. 

X 

Y 

Z 

EQUATIJN  NUME 

ER 

1 

2 

.OOOOOE+OO 

.300006+01 

.000006+00 

-7 

1 

2 

2 

.OOOOOE+OO 

.32500E+01 

.000006+00 

-8 

w 

3 

0 

.OOOOOE+OO 

.35000E+01 

.000006+00 

-9 

4 

£ 

.75000E+00 

.298006+01 

.000006+00 

4 

5 

5 

2 

.75000E+00 

.350006+01 

. OOOOOE+OO 

6 

7 

6 

2 

.15000E+01 

.290006+01 

.000006+00 

8 

9 

7 

2 

.15000E+01 

.320006+01 

.OOOOOE+OO 

10 

11 

a 

£ 

.  16250e+01 

.350006+01 

.OOOOOE+OO 

12 

13 

3 

2 

.25000E+01 

,273006+01 

.000006+00 

14 

*  C 

10 

£ 

.24167E+01 

.  350006+01 

.OOOOOE+OO 

16 

17 

11 

2 

.35000E+01 

,244006+01 

.000006+00 

18 

19 

12 

2 

.350006+01 

.  297006+01 

.OOOOOE+OO 

20 

21 

13 

2 

.32500E+01 

,350006+01 

.OOOOOE+OO 

22 

23 

14 

2 

.42500E+01 

.21200E+01 

.OOOOOE+OO 

£4 

£5 

15 

2 

.40833E+01 

.350006+01 

.  000006+00 

26 

27 

16 

£ 

.50000E+01 

.  16600E+01 

,000006+00 

28 

£9 

17 

2 

.50000E+01 

.£5800E'-01 

. OOOOOE+00 

3C 

3l 

18 

“j 

u 

.  487506  ■'■01 

.35000E+01 

.OOOOOE+00 

3c 

19 

2 

.57500E^K)1 

.  17000E■^01 

.  OOOOOE■^00 

34 

■^c 

£0 

2 

.57500E+01 

.  35000£-^01 

.  OOOOOE^^OO 

3q 

37 

21 

2 

.65000E+01 

.  i7500E+0l 

.OOOOOE^OO 

36 

22 

2 

.65000E+01 

.  00;)00E-K)0 

-12 

59 

23 

2 

.65000E+01 

.35000E■^Oi 

. OOOOOE+00 

“iu 

40 

24 

'j 

w 

.57500E^Kil 

.  86<)<X)E-KiO 

.OOOOOE-^00 

41 

4c 

25 

2 

.65000E+01 

.87000E+00 

.OOOOOE+00 

-;o 

43 

26 

£ 

.fa0000£+01 

.  OOCiOOE-«Xi 

.  OOOOOE-HjO 

-1 

~c 

27 

2 

.62500E+01 

.OOOOOE+00 

.  iWOOOE+00 

-3 

-4 

28 

2 

.65000E+01 

.OOOOOE-^ClO 

.  000OOE■^00 

-5 

-c 

INPUT  OF  ELQOT  PROPERTIES  (N=  0) 


NWBER  OF  GROUPS  OF  PROPERTIES  (NG?E)=  1 
NUI«B£R  IF  PROPERTIES  PER  GROUP  (NPR£)=  A 


CARDS  OF  ELEMENT  PROPERTIES 

))))>  1  .20000E+07  .30000E+00  .OOOOOE+OO  .23000E+01 

)>>>)  -1  .OOOOOE+00  .00000£*00  .OOOOOE+00  .OCOOOE+CO 


INPUT  OF  ELEMENTS  (M=  0) 


»)(.  i^MBER  OF  ELEMENTS  (N£LT)=  5 
MAX.  NUMBER  OF  NODES  PER  ELEMENT  (NNEL)=  3 
DEFAULT  ELEMENT  TYPE  (NTPE)=  2 
NUMBER  OF  GROUPS  OF  ELEMENTS  (NGRE)=  I 
INDEX  FOR  NON  SYMMETRIC  PROB^M  (NSYM)=  0 
INDEX  FOR  IDENTICAL  ELEMENTS  (NIDOsT)=  0 


aEMENT:  1  TYPE:  2  N.  P.  .• 

8  D.C.F.; 

Id  N. 

PROP:  0  £L, 

PROP: 

4 

GROUP: 

CONNECTIVITY  (NE)  1 

4  6 

7 

3  5  3 

'j 

ELEMENT:  2TYPE;2N.P. : 

8  D.  0.  F. : 

16  N. 

PROP;  0  £.. 

PROP: 

4 

jRCuP:  '1 

CONNECTIVITY  <NE)  6 

9  11 

12 

13  :0  3 

7 

ELEMENT:  3TYPE:2N.P, : 

8  D.O.F.: 

16  N. 

PROP:  0  EL. 

PROP: 

4 

GROUP;  0 

CONNECTIVITY  (NE)  11 

14  16 

17 

18  15  13 

•  j 

ELEMENT:  4TYPE:2N.P. : 

8  D.O.F. : 

16  N. 

PROP:  0  EL. 

DROP: 

4 

GROUP;  0 

CONNECTIVITY  (NE)  16 

19  21 

22 

23  20  18 

17 

ELEMENT:  5ryPE:2N.P. : 

8  D.  0.  F, : 

16  N. 

PROP:  0  El. 

PROP: 

u 

GROUP;  0 

CONNECTIVITY  (NE)  26 

27  28 

£5 

21  19  16 

24 

MEAN  BAND  HEIGHT^  3. 1  MAXIMUM=  15 

LENGTH  OF  A  TRIANGLE  IN  KG  (NKG)=  393 

NUMBER  OF  INTEGRATION  POINTS  (NP5)=  45 
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INPUT  OF  CONCENTRflDED  LOADS  (M=  0) 


CARDS  OF  NODAL  LOADS 


))>>>  1  .OOOOOE+00  -.lOOOOE+02 

)>)>>  3  0  0  0  0  0  0  0  0  0  0  0  0  U 

>>)>>  -1  .OOOOOE+OO  .00000£-h)0 


ASSEMBLING  OF  DISTRIBUTED  LOADS  (M=  0) 


SUBSPACE  ITERATION  IM=  0) 


NUMBER  OF  DESIRED  EIGENVALUES 

(NVAL?)= 

3 

MAX.  NUMBER  OF  I^RATIQNS  PERMITTED 

(NITER)= 

£0 

INDEX  FOR  DIAGCNAu  MATRIX 

(NMDIA6)= 

0 

CONVERGENCE  TOLERANCE  ON  EIGENVALUES 

(EPSLfl)= 

.  lOOOOE-OS 

SHIFT 

(SHIFT) = 

.  00000E*00 

SUBSPACE  DIMENSION 

(.NSS)  = 

c 

MAX.  NUMBER  Cf  ITERATION  IN  JACCBI 

(NS»H)^ 

CONVEROCE  TOLERANCE  IN  JACOBI 

(TOLJAC'^ 

.;(X:OOE-.l 

ITERATION  1  MAX,  ERROR=  .^+06  EXACT  EIGENVALUES:  0 
ITERATION  2  MAX.  ERROfi=  .4E+00  EXACT  EIGENVA.UES:  0 
ITERATION  3  MAX.  ESROR=  . lE-01  EXACT  EIGENVALUES:  3 

.  .  .  .  CONVERGENCE  IN  A  ITERATIONS 


EIGENVALUE  NO,  1=  .56152E+0A 


EIGENVECTOR: 


NODES 

X 

i 

Z 

DEGREES  OF  FREEDOM 

(*  =  PRESCS: 

1 

.00000E-K)0 

.3ooooe+oi 

.OOOOOE+00 

.mmm  * 

. &6375E+00 

£ 

.OOOOOE+00 

.32500E+01 

.OOOOOE+00 

.WOOOE+OO  » 

.  6G172E+IXI 

3 

.(X)000€+00 

.35000E+0I 

•OOOOOE+OO 

.OOOOOE+'jO  * 

.  65667E'^0O 

A 

.75000E+00 

.£38(X)£+01 

.  OOCKXlE+(Xi 

;3930E-01 

.60786E+IX) 

5 

.73000E+00 

.35000e+01 

.(WOOOE+OO 

.A505IE-D: 

. GOASOE+OO 

6 

.  15000E+01 

.£9000£-K)l 

.  00(X)0£+00 

-.Ki:i7E-0l 

.  ‘•aiA7E+00 

7 

.15000E+01 

.32000E+01 

.  00<X)OE+0'0 

.  1861£E-0: 

. A7e9UE+0O 

a 

.  16250E+01 

.35000£-K)l 

. OOOOOE+00 

. 78526E-01 

.A5357£>jO 

3 

.25000E+01 

.27300E+01 

.oooooe+00 

-.A3577E-0! 

.£347;E+0': 

10 

.24167E+01 

.  35(KXiE+i)l 

.  •XWMz-'Oij 

.  80294E-01 

n 

.35000E+01 

.244006+01 

-.  45399E-0: 

.  l-.bcE- 

12 

.35000Ef01 

.297006+01 

.  Xi0(x.iE+00 

.  72541E-02 

.  13794E+'I-0 

13 

.32500E+01 

.35000E+01 

. OOOOOE+00 

.687366-01 

.  l73c5Erai 

14 

.42500E+01 

.21200E+01 

.  COOOOE+OO 

-.  323046-01 

.723P6E-01 

15 

.40833E+01 

.35000E+01 

.  000<XtE+00 

.  +66826-01 

.857556-0 1 

16 

.50000E+01 

.1660CE+01  .OOOCOE+Cw) 

-.  17548E-01 

.  2j2t(iE-01 

17 

.50000E+01 

.  256006+01  .  (lOCOOE+OO 

-.505626-02 

. 332553-11 

18 

.48750E+01 

.35000E+01 

.  0(iOOOE+<Xi 

. 29360E-01 

. 39c32E-01 

19 

.57500E+01 

.  17000E+01 

.  C000(€+00 

-.781576-02 

. 17bOlE-Jl 

20 

.57500E+01 

.35000E+01 

.  OCiCXME+iX) 

.  145396-01 

. 16647E-01 

21 

.65000E+01 

■  .17500E+01 

. OOOOOE+00 

.  0000(€+00 

4 

. ilbClE-vl 

22 

.65000E+01 

.262006+01  .0000(€+00 

.  OOCXiOE+Cx) 

1- 

. 556166-02 

23 

.650006+01 

.350006+01 

. OOOOOE+00 

.  OOOOOErT.'O 

* 

.115656-01 

24 

.57500E+01 

.  86000£+(kD  .  CiOOO(iE+‘jO 

-. 19224E-02 

. 13207E-C1 

25 

.650006+01 

.  8700CE+00  . OOOOOE+00 

. OOOOOE+00 

4 

.988583-: 2 

26 

.600006+01 

.  OOCkX€+<X) 

.  0(KXi(iE+0(i 

.  OOOOOE+00 

4 

.  OOOOOE+00  + 

27 

.62500E+01 

.000(XiE+00 

. 000006+00 

.  000006+00 

4 

.00000£+(:')  «■ 

28 

.65000E+01 

.  00000€+-j0  .  0000(16+00 

.  C000()£+iX) 

4 

.OCoO(E+o  j  * 

EIGENVALUE  NO.  2  =  .3788fl£+05 
EIGENVECTOR: 

NODES  i  y  Z  DEGREES  Or  FREEDOW  (»  =  PRESCRIBED) 


1 

.OOOOOE+00 

.300006+01 

.000006+00 

.  (00006+00 

4 

-. 43557E+00 

’j 

.00(XiO£+00  .325006+01 

. 000006+00 

.  COOOOE+xX) 

4 

-. 43947E+C0 

J 

.OOOOOE+OO  .350006+01 

.000006+00 

.  000006 +tIO 

4 

-. 43308E+cy 

4 

.750006+00  .298006+01 

.  000006+00 

.754786-01 

-. 30806E+00 

5 

.750006+00  .350006+01 

.000006+00 

-. 665896-0! 

-.  307286+00 

6 

.150006+01 

.290(Xi6+01 

.(XOOOE+OO 

. 123686+00 

-.503106-01 

7 

.150006+01  .32000E+01 

.000006+00 

. 197336-01 

-.430916-01 

8 

.  16250£+<)1 

.350006+01 

.  000006+00 

-.a3712£-0! 

-. 502293-02 

9 

.250006+01 

.273006+01 

. 000006+00 

.  10301E+00 

.252486+00 

10 

.24167E+01 

.350006+01 

.  000006+00 

-.  306556-u! 

. 23703E+00 

11 

.350006+01 

.244006+01 

.000006+00 

.434126-01 

.  31596E+0'J 

12 

.350006+01 

.297006+01 

.  0(KXK)E+00 

.532096-01 

.  329556+0') 

13 

.325006+01 

.350006+01 

.  000006 +<70 

. 325366-01 

.316203+00 

14 

.42500E+01  .212006+01 

.  OOOOOE+iXj 

. 346736-02 

. 272073+00 

15 

.408336+01  .350006+01 

.  00(X)OE+(X) 

. 748696-01 

.29474E+0C 

16 

.500006+01 

.166006+01 

.  000006+00 

-.  126626-01 

. 200506+00 

17 

.500006+01  .25800E+01 

.  1X10006 +00 

. 228066-01 

.210036+00 

18 

.48750E+01 

.350<Xi6+01 

.  fXMOE*(jO 

.776386-01 

. 236486+00 

19 

.57500E+01 

.170006+01 

.000006+00 

-.232826-02 

. 140996+00 

20 

.5750(6+01 

.350<X€+01 

.  X.»000£+0(' 

. 402326-0! 

.  174733+00 

21 

.65000E+01 

.  175006+01 

.000006+00 

.  000006 +('0 

4 

.  1 15966 +0(i 

22 

.65000E+01 

. 26c0O£+01 

.  W'XOE+OO 

.  000006+00 

4 

.  141996+00 

23 

.650006+01 

.350006+01 

.  000(Xi6+00 

.  0(Xk)CE+00 

4 

. 154366+00 

24 

.575006+01 

.  86(Xh:i£+<;iO 

.  O'XXOt+iK) 

.  150666-02 

. 103866+00 

25 

.650006+01 

. 870006 +00 

. 000006+00 

.  000006 +1X1 

4 

.717623-01 

T  *  -■  _  : 

E  ■  r  ,  •  • 

7.  ■  • 

:ZZZ'-‘Z-.-: 

^OES'E-X 

-  ■-■  T.  : 

.1-  ;  I*.: 

. :  :x*'.  ■ 

.  x;d3E-:5 

hOuIgE- 

: 

.  ■  - 

EE,'  ■  ■•■•■, r,  •  ' 

.  EvaEX'EE- 

.  :5EEcE-’j; 

‘•053;  E-o; 

i 

.  X  X  x-x 

,  O-'*-  ' 

.3X;gE-E,; 

4lbS:G-'J'. 

'  ‘ r .  ■  : 

. 

3334EEXI1 

-.50l3aE-0i 

,  1 

.  E  XX-  ■ 

.  E'EEjCOE*'  V. 

loG37E-oi 

491 1 lc-01 

- 

'  c  '■  ■  r  -  ' 

.  Z )  !'0 
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. 000006+00 

165 

166 

• 

89 

2 

.255006+02 

.900006+01 

.000006+00 

167 

168 

90 

2 

.255006+02 

. 120006+02 

.000006+00 

169 

170 

91 

2 

.270006+02 

.000006+00 

.000006+00 

171 

172 

92 

2 

.270006+02 

.300006+01 

.  00(Xi06+00 

173 

174 

93 

2 

.270006+02 

.600006+01 

.000006+00 

175 

176 

94 

2 

.270006+02 

.900006+01 

.000006+00 

177 

178 

• 

118 

,  • 

V 

TOTAL  NWBER  OF  PRESCRIBED  D.C.^ 


(CL')  = 


NODAL  COORDINATES  ARRAY 


D.L. 

X 

Y 

Z 

EQuATICN  NL'^B 

1 

2 

.OOOOOE+00 

.000006+00 

.000006+00 

o 

2 

.OOOOOE+00 

.  300006+01 

.000(06+00 

-3 

-i 

3 

2 

.OOOOOE+00 

.600006+01 

.  000<M+00 

-i 

2 

.OOOOOE+00 

.  90000E+01 

.000006+00 

-7 

-1 

5 

2 

.OOOOOE+00 

.  120006+02 

.  000(WE+00 

-9  ■ 

-i( 

B 

2 

.  15000E+01 

.000006+00 

.000006+00 

I 

( 

7 

2 

.15000E+01 

.300006+01 

.000006+00 

3 

a 

2 

.15000E+01 

.600006+01 

.000006+00 

5 

i 

9 

2 

.15000E+01 

.900006+01 

.  000006+00 

7 

10 

2 

.15000E+01 

.  120006+02 

.000006+00 

9 

1( 

11 

2 

.30000E+01 

.000006+00 

.000006+00 

11 

i: 

12 

2 

.30000E+01 

.300006+01 

.000006+00 

13 

(1 

13 

2 

.300006+01 

.600006+01 

.000006+00 

15 

i( 

14 

2 

.30000E+01 

.900006+01 

.OOOOOE+OiO 

17 

11 

15 

2 

.30000E+01 

.  120006+02 

.000006+00 

19 

2( 

16 

2 

.45000E+01 

.000006+00 

.000006+00 

2! 

2i 

17 

2 

.450006+01 

.300006+01 

.000006+00 

23 

2^ 

16 

2 

.  450006+01 

.600006+01 

.000006+00 

25 

2( 

19 

2 

.450006+01 

.900006+01 

.000006+00 

27 

2( 

20 

2 

.450006+01 

.  120006+02 

.000006+00 

29 

3< 

21 

2 

.600006+01 

.000006+00 

.000006+00 

31 

3: 

22 

2 

.600006+01 

.300006+01 

.000006+00 

33 

2‘ 

23 

2 

.600006+01 

.600006+01 

.000006+00 

35 

3! 

24 

2 

.600006+01 

.900006+01 

.  000006+00 

37 

3J 

25 

2 

.600006+01 

.  120006+02 

.000006+00 

39 

4( 

26 

2 

.750006+01 

.000006+00 

.  0(10006+00 

41 

4< 

27 

2 

.750006+01 

.300006+01 

.000006+00 

‘•3 

u 

28 

2 

.750006+01 

.600006+01 

.000006+00 

45 

4( 

29 

2 

.750006+01 

.900006+01 

.000006+00 

47 

4f 

30 

2 

.  750006+01 

.  120006+02 

.000006+00 

49 

5< 

31 

2 

.900006+01 

.000006+00 

.000006+00 

51 

5; 

32 

2 

.900006+01 

.  300006+01 

.000006+00 

53 

5^ 

33 

2 

.900006+01 

.600006+01 

.000006+00 

55 

5( 

34 

2 

.900006+01 

.  900006+01 

.000006+00 

57 

5( 

35 

2 

.900006+01 

.  120006+02 

.000006+00 

59 

6'.: 

36 

i 

u 

.  10500E+02 

.000006+00 

.000006+00 

61 

6i 

37 

2 

.  10500E+02 

.300006+01 

.000006+00 

63 

6^ 

36 

2 

.  105006+02 

.600006+01 

.000006+00 

65 

6( 

39 

2 

.  10500E+02 

.900006+01 

.000006+00 

67 

6( 

40 

2 

.  105006+02 

.  120006+02 

.000006+00 

69 

7( 

41 

2 

.  120006+02 

.000006+00 

.000006+00 

71 

7; 

42 

2 

.  120006+02 

.300006+01 

.  001)006+00 

73 

7‘ 

43 

2 

.120006+02 

.600006+01 

.000006+00 

7i 

CARD 

NUMBER 


123A5678901£3A567e90 12345678501234567890 : 234567390 !  23^.5^7850 ;  '330 ; 

1  2  3  4  5  3  7 

COLUMN  NL.1BER 


COMMENTS 


END  Or  DATA 


CANTILEAVERED  BEAM  12  X  48  X  1  (INCHES) 

6  NODED  TRIANGUALAR  ELEMENTS  (ELEM03) 

64  ELEMENTS 

FOR  COMPARISON  WITH  THE  RESULTS  OF  CARLOS  A.  FELIPPA 


INPUT  OF  NODES  (M=  0) 


MAX.  NUMBER  OF  NODES 
MAX.  NUMBER  OF  D.O.F.  PER  NODE 
DIMENSIONS  OF  THE  PROBLE;" 
COORDINATE  SCALE  FACTORS 
WORKSPACE  IN  REAL  WORDS 


(NNT)=  165 
(NDLN)=  2 

(NDIM)=  2 

(FP;C)=  .I'jOOOE+Ol  .lOdOOE+Ol 
(\V0)=  2COOC 


,  lOOOOE+01 


INPUT  OF  BOUNDARY  CONDITIONS  (M=  0) 


BOUNDARY  CONDITIONS  CARDS 

>>)))iio<xx)oooo  .(X)ooo£+(X)  .oooooE+00  . (XKXiOE+ix)  .«iocioE-Kio  . joix)OE-HXi  . c-txiooE-roo 

) ) ) ) )  1  2  3  4  5  0  0  0  0  0  0  0  0  ;•  0 

>>>>)(Xi00Ci00<X)0  .OOOOOE-KK)  .OOOOOE+00  .  000002+00  .MOCOE+OO  . OOOOOE+X)  .OOOOOE+00  .0( 


TOTAL  NUMBER  OF  NODES  (NNT)=  165 
TOTAL  NUMBER  OF  D.O.F.  (NDLT)=  330 
NUMBER  OF  EQUATIONS  TO  BE  SaVED  (NEQ)=  320 
NUMBER  OF  PRESCRIBED  NON  ZERO  D.O.F.  (NCLNZ)=  0 
NUMBER  OF  PRESCRIKD  ZERO  D.O.F,  (NaZ)=  10 


f.  E.«.  3. 

6.T0UZ0T.  G.DHATT 
MODIFIED  BY 


c 


REHE  E.  RUESCH 


IMAGE  OF  DATA  CARDS 

COLUMN  number 

CARD  1  2  3  4  5  6  7  5 

MJIffitR  12345678301234567fl901£345678901234567690I23'i567S30;22456739'j:23456739':/!534357550 


The  following  table  of  results  for  the  cantilevered 
beam  was  obtained  by  Carlos  A.  Felippa. 


For  comparison,  the  tip  defelections  from  MEF  are  the 
ones  for  nodes  161  thru  165.  The  stresses  are  the  stresses 
listed  for  Gauss  Point  3  of  elements  51  and  52. 


26  .  600006+01  .00<)00€+0(i  .000006+00  .CiO'OOOE+OO  ♦  .OCOCOl-^Oj  ♦ 

27  .  625006+01  .000006+00  .  000006+00  .  000006+00  +  .OCiOCOE+OO  * 

28  .  650006+01  .000006+00  .OOOOOE+OO  .OOOCm)E+W  ♦  .OOOCvE+OC  ♦ 

EIGENVALUE  NO.  3  =  . 100146+06 


EIGENVECTOR: 


NODES 

X 

V 

Z 

DEGREES  Or  -REEDDX 

(♦  =  ‘'RiiC'.B. 

1 

.OOOOOE+00 

.300006+01 

.000006+00 

.000006+00  » 

-.411286+00 

•  2 

.OOOOOE+OO 

.325006+01 

.OOOOOE+OO 

.00<X)OE+00  ♦ 

“i  4cl594c+00 

3 

.OOOOOE+00 

.350006+01 

.OOOOOE+OO 

.OOOOCE+00  ♦ 

-.  41626E+00 

A 

.75000E+00 

.298006+01 

.000006+0*5 

.  125746+00 

-.222926+00 

5 

.75000E+00 

.350006+01 

.  000006+00 

-.692626-01 

-,225+lE+OO 

6 

.  15000E+01 

.290006+01 

.  OOOOOE+OO 

.17483E+00 

. 105d9£+00 

7 

.15000E+01 

.320006+01 

.  000006 KiO 

.689346-01 

.  1 17786  HiO 

8 

.162506+01 

.350006+01 

.OOOOOE+OO 

-.355336-01 

. 149246+00 

3 

.250006+01 

.273006+01 

.OOOOOE+OO 

,893926-01 

. 324376-00 

10 

.2A167E+01 

.350006+01 

.OOOOOE+OO 

.861006-01 

. 322396+00 

11 

.350006+01 

.244006+01 

.000006+00 

-.472096-01 

.la+SlE--:'!) 

12 

.35000E+01 

.297006+01 

,  OOOOOE+OO 

.815446-01 

.  1+8806+CO 

13 

.325006+01 

.350006+01 

.000006+00 

. 180776+00 

. 2C020E+C0 

lA 

.A25006+01 

.212006+01 

.OOOOOE+OO 

-.a7810E-01 

-.783606-01 

15 

.A0833E+01 

.350006+01 

,000006+00 

. 185416+00 

141166-01 

16 

.500006+01 

.166006+01 

.OOOOOE+OO 

-.751386-01 

-.  213176+0(1 

17 

.500006+01 

.258006+01 

.000006+00 

-. 104746-01 

-.SISO^E+OO 

18 

.A8750E+01 

.350006+01 

.  0(hX)OE+<)0 

. 135446+00 

-. 171316+00 

19 

.575006+01 

. 170006+01 

.OOOOOE+OO 

-,41600£-01 

-.216386+00 

20 

.575006+01 

.350006+01 

.OOOOOE+OO 

.629316-01 

-.272656+00 

21 

.650006+01 

.175006+01 

.000006+00 

.000006+00  ♦ 

-.22656E+C0 

22 

.650006+01 

.26200E+01 

.OOOOOE+OO 

.OOOOOE+OO  ♦ 

-. 284366+00 

23 

. 650006 rOl 

.350006+01 

.000006+00 

.000006+00  ♦ 

-.290856-00 

2A 

.57500E+01 

.860006+00 

.000006+00 

-.2756^-01 

-. 160516+00 

25 

.650006+01 

.87000E+00 

.000006+00 

.000006+00  * 

-. 1 I6IOE+OO 

26 

.600006+01 

.OOOOOE+<Xi 

.OOOOOE+OO 

.OOiWOE+00  « 

.000006 +iX)  ♦ 

27 

.625006+01 

,000006+00 

.OOOOOE+OO 

.000006+00  ♦ 

.000006+00  » 

28 

.650006+01 

.000006+00 

.OOOOOE+OO 

.OOOOOE+OO  ♦ 

.000006+00  * 

END  OF  PROBLEM,  1676  UTILIZED  REAL  WORDS  OVER  EOCiXi 


o 


I 


.22;  ;:z-:2 

.oo'- :  :2- 

.  .‘i'ln-Vv-.;’::'} 

.5+0122-15 

-. 15238E+00 

-- 

.izizzz*-;- 

.  2:  ;'.:2-v; 

.  .(■..■5'J2+00 

.2'6431EXi; 

-.  i5308EXO 

,  •;o5;i;-*5.2 

.  ^f.-'KiiY'+OO 

.  535192X1; 

-.  15370EX0 

.  ?!!.00v£-^00 

.  0000CE-<)0 

-.55092EX; 

-.  16764EXO 

.305002*01 

.  '.liiXiOE+Oij 

-.27262E-01 

-. 16708E+00 

03 

.  3G0:'G£+03 

.  60000:2-0; 

.  OMCOEhiO 

,55740i£-;5 

-.  16690EX0 

> 

.  2000:2*22 

.%'Xkz~o: 

.  'XKX*  .'r+*X; 

.2’262E-01 

-. 167082+00 

.••c 

.  sJ 

.  .lOOOi^Oc 

. oooooE-00 

.55092E-:jl 

-.  :6764E+00 

1- 

.  00O0C£*»*OO 

.  'X»Ck)0£+00 

5b513E-01 

-,  18198E+00 

'.7 

~  ‘  C','«‘.Cxn 

.  .;CC00-+C!; 

.  'jOO0ii.!E+0)O 

-.2798i£-0l 

-.  18146EXO 

.3 

.2:;0:'2*v2 

.33587E-15 

-.  18128EXX 

:'■; 

.215002-02 

.  5000152*01 

.  OOOOOE+OO 

.  27981 E-01 

-.  181462X0 

.  2l3‘2'.'2+'02 

.  0(10002+00 

.56518E-01 

-.  18198E+1X 

1  1 

(  •'  ■''•  k_ 

.  000002-01C 

.  OCKjCOE+OO 

-.57641E-01 

-,  19664EXO 

“ 

.  33‘;'X>E-^  ?'■ 

.  30001)2+1); 

.  (k'jOC'OE+OO 

266S7E-01 

-. 19618E+00 

■  ' 

.  2200OE«'02 

. 60CCOE+01 

.  OOOOOE-00 

.4l094E-!5 

-.  19603EXO 

ii 

.  33j0‘''I^0z 

.  9'-X5j02*0; 

.  iXiOOOE+OO 

.28657E-01 

l%I8E+'Xf 

■ 

* 

.  1200CE+<)2 

.  OOOOOE+OO 

.5784;e-o; 

-.  196642X0 

.  0 

.  3*+300£'*"')c' 

.  0'XiC!;:2+oo 

.  XXw)0£*('0 

-.590;7£-01 

-.£i;63E+<Xi 

t  7 

.345002-52 

.  zoooiOE+o; 

.  (i(i000E+C0 

-.29232EX11 

-.2112IEXC1 

. 

.  2-5')02»Oi2 

.  SOOlvClE*!); 

.  fXiOOOE+00 

.42791E-15 

-.21106E+‘X! 

.5 

.  34500£*'52 

.  SOC'Ol'tE+ol 

,  OOOOOE+OO 

.29232E-01 

-.21121EXO 

d',: 

.  3^5‘)C";'*  .'i 

.  ;2()ci:€+02 

.  (XiOOOE+00 

.590l7EXi; 

-.21163E+X) 

.  36iXiC£*02 

.OOOOOE+00 

.  OOOOOE+OO 

-.60090E-0; 

-,22689EX0 

.  360002*02 

.  3CKXi02*01 

.  iXiChXiE+OO 

-.297S4E-01 

-.22652E+00 

07 

ww 

.  56000E*C2 

. 60000E+0; 

.0000(€+00 

.44969E-;5 

-.22640EXO 

24 

.  360002*02 

.  90(1002+01 

.WCXiOE+iX' 

.29764£Xi; 

-. 22652E+00 

T'C 

.  360(i0£*02 

.  ;2000£+02 

.OOOOOE+OO 

,60090E-0; 

22689EX0 

Z  0 

.  375002*02 

.  OX.iOOE+00 

.  (lOOOOE+OO 

-.61013E-01 

-. 24242E+00 

27 

.  3750CiE*02 

.  30000E*i)l 

.OOOOOE+OO 

30234£-0I 

-,£420eEXO 

29 

.375502-02 

.  600CC2+0 1 

.  OOOOOE+OO 

.46387E-!5 

-.241972+00 

vC 

. 2750CE*C2 

.SOOME+Ol 

.OOOOOE+OO 

.30234EX!; 

-.  24208EX0 

J>0 

.  375002*<)2 

.  120002+02 

.  (/.iMOtHiO 

.610132-01 

-.  242422+0(1 

w  1 

,390COE*02 

.  OOOOOE*<iO 

.  C’(Xi0CiE+<i0 

-.6183;E-01 

-.25815EXO 

7  7 

.  3900;02r02 

.  30C0':<2+01 

.  CCOCOE+00 

-,30645EXil 

-.25786E+(X 

23 

. 390002*02 

.60000E+01 

.  000CK)E+(i0 

.47201E-15 

-.25777EXO 

24 

.  390002*:i2 

.  900002+151 

.  iyjxi0E*<)0 

.306452-01 

-.  25786E+W 

TC 

J  J 

. 390002*0^ 

.  1 20002 *02 

.  (X)000E+00 

.618312-01 

-.25815EXO 

36 

.  405')02*02 

.  OOOOOE+OO 

.  OdXiOE+OO 

-.b2492EX'I 

-.  27408E+0() 

37 

.  4C5C0E*-:)2 

.  3OOOOE+O: 

.OOOOOE+OO 

-.30997E-01 

-.27383EXO 

28 

. 405002*02 

.  60')C02+01 

.  XiOOOE+OO 

.48161E-15 

-. 27373E+00 

29 

.  405(’02*<52 

. 90000E+01 

. OOOOOE+OO 

,309972X1 

-.27383EXO 

.  4O50O2*0j2 

.  '.i3000I+0d 

,  X5'XiOE+(Xi 

.62492EX1 

-. 27403E+00 

4; 

.  ^iOO'Ot*'^ 

.  0000i)E*OO 

. OOOOOE+OO 

-.63044E-0I 

-.290i6£XO 

“-i 

.  4i'. ’..'■-'^*'-14 

.30i'>i>.52*0; 

.  iXiOOOE+00 

-.312g5E-01 

-.  28994E+(Xi 

•^3 

.420002*:'2 

.  600(«)£-01 

.  OXKXiE-OO 

.48999E-15 

-.28965EXO 

:-4 

.  420'5o2*'02 

.9000: '2+01 

.  X1OOO2*'  Xi 

.3;295E-0! 

-.289942+00 

»  c 
.  •*  j 

. 420052-02 

.  1200CE-02 

. OOOOOE+OO 

.53C44EXi 

-.29016EX0 

>6 

,  »25:i5:2*52 

,  }(:00')2*00 

.  X)OC0£*OO 

63^  1 1E~01 

-.30634E+00 

.47 

.425002*02 

.  30000E*')  1 

.  (X00OE*<)0 

-.31544EX1 

-.30618EX0 

'.-S 

.435002*02 

,  6'5i0502+0; 

.  'X0002+00 

.54901E-15 

-. 30610E+00 

126 


. 413: ;e*02 

.  1 

.  2  OOCK'E^OC 

.  jlS't^E'Ol 

-.^OblEE-HjO 

r  •, 

.^2; 

. 000 OOE^OO 

.&34;lE-<jl 

30634£+(:)(i 

c 

.‘‘50XE-::£ 

.  WO'XE+IiO 

.  0CK;io<jE+<;<! 

-.GEE-tSE-Ol 

3c!2j7EhiO 

.  3000CE+0‘. 

.  WOCYjE+OO 

-  3175'jE-Ol 

32£49E-''“’' 

.  ‘♦SOCOE’-OE 

.60O<;i0E*0l 

.oo(!«iEh!o 

.61189E-15 

3££44E+'. '' 

.  '*5000i*0c; 

.  OCCOOEt(Xi 

.GlTKic-Ol 

32£49E+()0 

cc 

.  AjC' j0E*02 

.  :£':ick;£K;2 

. OOOOOE+00 

.63649E-01 

3££57E+00 

5c 

.  46!Y.'2E-C£ 

■  l-OL  (.‘L'c+'ji.J 

.  OOCKiOE-f  00 

63813£h;)1 

33873EHI*:) 

C"* 

.  '•6500E*2'£ 

.  300CiC£*-0: 

.  OOOOOE+00 

2i378E-01 

33884E-h)0 

;8 

.  SlXKOr+Ul 

.  (XiOOOE+00 

.65434E-15 

33912E+00 

59 

. 46500E+02 

.90000E+01 

.  0()OOOE+O0 

.  31d76E-X)l 

-.53884E-KK:) 

EO 

. 46;O0E*O£ 

.  lcvO'vE+o2 

.  0C0()0E+00 

.63813E-01 

33873E+00 

81 

.  4e(:CCE+02 

. OOOOOE+00 

.  OOOiXiEHiCi 

-.6386GEH}1 

35477E-^00 

ci 

.  48':";.'''jE-02 

.  EOCO'YE+Ol 

.  CiOOOOE+OO 

318£3E-01 

33507 E+00 

63 

.  48(:;0(E-0£ 

.  SOCKiOE-^;!! 

.  OOOOOE-00 

.66939E-15 

-.35630E'KiO 

.  4800::i-0£ 

.  OOOOOc+OO 

.31d£3£-0! 

35507E+00 

Uw 

.  ^SC'OOE’-'.'E 

. i200C£*0£ 

.  OC'CCK.'EtOO 

,63e6SE-01 

35477E+00 

G* 

X 

T'  r’fC\"' 

Y 

1 

EASX 

EASY  GAPIXY 

SIGX 

SIGl 


5;5V 

S!G£ 


:  .:5000E-H):  .OOOOOE^JO -.S6425E-0£  .5I777E-03  -  44555E-03  -.fl0Aia£+0£  -.457I4£+{);  -.53467E*<>; 

41%3E'Kil  -.80793E+0c!  ,  38ii!'99E'^0£ 
£  .30000E+01  .30000E+<il  U6g4E-0£  .£6854£-03  107S6E-03  35K4£-fO£  1E208E+00 i£907E+Oi 


3  .ISOOOE-Kll  .30000£K)i  i319£E-02  . 19747E-03  -.48780E-03  407:4E»0c:  -.45543E*01  -,56536£+<il 

3E303E+01  *.  41638E*0£  .  l'9(i04E+0i 


0^7flINTES  DflSS  L  0.E?^ENT 
O.G.  X  Y 


E^SX 


E2Sy 


Ga»IXY 


SIGX 

SISl 


SIGY 

s:g£ 


TAuMAX 


1  .  4500ijE''’01  .  OOOOOE+00  -.£j97iE-02  .59440E“03  “.50558E-Xi4  -.71953£''C£  *,  1j6£oE •<}'>)  '.SOGEGt+OO 

15113E-m}0  -.71958E+02  .35905En)£ 
£  .EOCCYiE^O:  .3C'0(Xi£+01  il6££E-0£  .£9304E-03  -.£7446E-03  -.3^847E*0£  .79468E-y:  -.33935EK)! 

.38732E+00  -.35155E+0£  .;77’lE+')£ 
3  .45000E>01  .30000E+01  12£79E-0£  .305C7E-v3  -.£8349E-03  -.36e51E+0£  -.&06i8E-C'l  -.34019E-K)1 

.25130E+00  -.37163E+0£  .:8707E+<)£ 


0N'’AI'J’’£3  IANS  l  Ei-EMEN"  j 

5.G.  X  Y  EASX  EASY  GflMXV  SIGX  SIGY  TAL'XY 

SIGl  SIG£  'AliYAX 

;  .750OOEH1;  .000«)E*<j0  -.2E432E-02  .55844E-(i3  -.50915E-04  -.67314E+02  -.75302E-01  -.61096£Ki0 

69751£~01  -,67319E*0c:  .336£5E+0£ 
£  .GOCOCE^Ol  .300()OE-01  10735E-02  .27037E-03  -.£8154£-03  -.32188E+08  .64£3iE-01  -.SaYSSE’Ol 

.41434E+00  -.32E36E+02  .;6476E+0£ 


3  .T^COCE’-Ol  .30CO0E+O1  llACi‘j£-02  .c3£lC£-j3 

CON'^:'.*ES  DP'vS  L  ElE^E^’  4 

:.5.  i:  y  E^SV 

1  .10500E-02  .OOOOOE-00 -.20317E-0E’  .51677E-03 

£  .:ECi0CE+02  .300C)0E■^01  -.9a726£-03  .2A8A3E-C3 

3  .1050tiE+02  .300(i0E+Ci  l055f.E-<i£  .2E£2:E-03 

CG\*o:\'^£3  DANS  L  ELE’iEN'  5 

B.G.  X  V  EBSX  EBSy 

1  .13E00E^O2  . OOOCOE-OO  19;&3E-02  .47498E-03 

2  .:50(«£*<:/2  .30(i0c€+0;  -.90316E-03  .22730E-03 

3  .13500E-KI2  .30000E+01  -.97190£-<i3  .24497E-(i3 

CONTAINTES  DANS  L  ElEMENT  6 

B.G.  X  Y  EASX  £3S¥ 

1  .'.65C0E*0£  .  OiXiOOE+CO  ;7499E-02  .4332eE-03 

2  .lBOO(i£-K)£  .50000E+01  -.81965E-03  ,  20640E-03 

3  .165Ci0E+02  .  30000EH';  -.88851 E-03  .22403E-(i3 

CCN'A:n’’E3  dans  L  ELE^Efr  7 

A.G.  X  Y  EPSX  EASY 

1  .;950CE+02  .  TKxXKiE-OO  ljd33E-:i2  .39161E-03 

2  .ElODOE-KiE  .GOOOOE+O;  -.73628E-03  . ’8555E-03 

3  .195<)0E*02  .30000Eh;1  -.80516E-<i3  .20316E-03 


•.  E80joE-03  -■34177E+02  .98918E-01  33Eo7E'Kil  -o't.n 

.4264dE+0C'  G'iSOAE'KiE  .;7465E+’!'2 


GAYXY  GlbX  dIGY  'Al<*  'E'A 

SIGl  SIGiX  'AU’^P* 

■.5716(£-<;4  6£479E*C‘2  11664E-H>j  -.£8592E*'X!  -EE. ‘‘ 

10910E+<iO  -.62486E+02  ,3;!B9E+02 
■. 2S138E-03  29605E+02  .jl747E-Yil  -.33766EHtl  -63. E 

.43134E+1/0  -. 299h4E-h;i2  .I52')a£*02 
■.  28214£-{)3  -.  31647E+02  .74499E-<)i  -.  33977E+01  -64.0 

.43434E-Ki()  -.  32()06E+0£  .1622ifE+02 


GA»Xy  SISX  SI6Y  TA'.iXY  *E"h 

SIGl  SIG2  TAUiYAX 

■. 59055E-OI4  -.57522E+02  -.  i30S8E400  -.  70366E-''00  -69.3 

1221 3E+00  57530E»0£  , 26704Et02 

■.  281 19E-03  -.27083E402  .  432242-0 1  -.337432+01  -33,0 

.461592+00  -.274982+02  .:3979E+C'2 
•,283992-03  -.291412+02  .  63777E-0i  -.3407SE+O1  -33.4 

■456162+00  -.29533E+02  .1*9952+02 


GA)"XY  SIGX  SI6Y  ‘A’.'XY  *E*A 

SIGl  SIG2  •AOI'AX 

■. 595062-04  -. 52531E+02  -.  13437E-4;iO  -. 7i407E+<0  -69. 2 

-.  12464E+<;0  -.525*12*02  .26203E+02 

■.28114E-<)5  -.24576E+02  .47407E-0;  -.33736£+<il  -62.3 

,50123E+0(i  -.250322+02  .127662+02 
■,28419E-03  -.26640E+02  ,61003E-(;il  -.341032+01  -62.6 

.  48%gE+00  -.  270692+02  . 1 37792+02 


GAfXY  SIGX  SI6Y  TAuXY  TE'A 

SIGl  SIG2  'AOKAX 

•.596042-04  -.47533E+02  -.  13514E+(h;i  -.715£5E-j0  -69.1 

-.  12435E+0<)  -.475442+02  .23710Ehi2 

■.281122-03  -.220772*02  .472Z6E-jl  -.337352+01  -61.5 

.550192+00  -.  22580E+02  ,11565E+<i2 
■.284242-05  -.241402+02  .  603782-01  -.341092+01  -62.1 

.531932+00  -.246112+02  .12572E+<j2 
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cc''  E3  np'o  w  -li'En  3 

:.'5.  X  1  EPSX  EPEy 

I  .EcEOOE-t-OS  .  OOCkWE’-OO 14i67E-0E  .3A554E-03 

3  .£4000t-Ki£  .30000E«:;il  -.65E'3AE-03  .16471E-<I3 

3  .£2500Ei-03  .30000E+01  -.731S3E-<j3  .  iec34E-03 

-:x\'c:ntes  dans  l  ElE^'en'^  g 

P.G.  i  v  EA5X  EASY 

:  .  3550*jE-H:i£  .OOOC<:E-«jO  13500E-03  .30a37£-03 

3  .27000E+02  .  SOOCOE-K'i!  -.56961E-03  . 14366E-03 

3  .c5500E+02  .SOOOOEHiI  -.63S50E-03  .1615iE~03 

CON’AINTES  DANS  L  El£!«£NT  10 

P.j.  X  Y  E?SX  EASY 

1  .3£j0C£+02  .00000£*00  ■. 10833E'0£  .26663E-03 

2  .30000£*0£  .30000E+01  4fl630E-02  . 12306E-03 

5  .28500E*02  .300C0E-K;1  -.55519E-03  .  i4068E-{'3 

CGN’AIN’ES  DANS  L  ELEYEN*  11 

A.G.  X  Y  E=SX  E5SV 

1  .3:500E»02  .  000002*00  -.9l65«E-Yi3  .22504E-03 

2  .33000E+02  .30000E+0:  -,40306£-03  . 10236E-03 

3  .3I500E+02  .30000E+01  -.47197E-03  .11989E-03 

ECNTAINTES  DANS  ^  E'^EyEN"  12 

j.G.  X  ■/  E3SX  E^SY 


3A*XY 

SIGX 

SIGY 

*H.XT 

'  I  Y4 

3IG1 

SIG2 

YAUYAX 

-.59628E-04 

4£534E-r02 

i35'27E+‘jO  - 

7;j54E+<Xi 

-c5.  0 

12S2'jE+00 

425i*oE+02 

212112+02 

-.28112E-03 

19j77E-Ki£ 

.47227E-01  - 

33734E+<il 

-80. 5 

.SKi95E*00 

-.20;+0E+0£ 

l')37SE+02 

28i2E£-03 

-.21640E+02 

,60£46£-01  - 

34110E+01 

-81.3 

. 583782+00 

-.22163E+02 

1 1374£*‘)2 

GAMXY 

SIGX  SIGY  'AlXY 

SIGl  SIG2  TffJYAX 

- 

-.596472-04 

-.37534E+02  -.  13516E+00  -.7;576E+x>j 
-. 12i46E+00  -. 37547E+02  . 18'13E+02 

-85.  E 

-,£8112£-03 

-.  I7077E+C2  .4735jE-i}1  -.33735£+0i 
.687972+00  -.177172+02  .  scO'Stri+ol 

-.23424£-03 

-.  19140E-02  .  602382-01  -.3410SE+<il 
.648lBE+<iO  -.  19728E+02  .lOlSSE+'OE 

-60.2 

GAYXY  SIGX  SIGY 

TAUXY 

SIGl  SIG2 

'AUYAX 

-.59718E-04  -.32533E+02  -.134432+00 

71&&2£*'00 

-6-5.  *r 

-.  1185aE+(iO  -.32549E+<)2  . 

;E2i5E+02 

-.281132-03  -.  i4577£+02  .48(iilE-01  -. 

337352+01 

“77,  c 

.788672+00  -. 153182+02  , 

805312*01 

-.28422E-03  -.16641E*0'2  .60316E-01  -. 

34‘06E+{il 

-73.9 

.72996E+00  -. 17310E+02  , 

90201E+<jl 

GAYXV 

SIGX 

SIGY 

■"AOXY 

SIGl 

SIG2 

’AUMAX 

-.60055E-04 

-.27529E+02 

-.  IGOSGE+YjO 

-.  72(i662+<i0 

-3c.  5 

-. 1 1 I99E+00 

-.275482+02 

. 137182+02 

-.281162-03 

-. 12079E+02 

.511082-01 

-.  33739E+'jl 

7c  c 
/  J.  0 

.92639E+<:i0 

-. 129542+02 

.69403E+<il 

-. 28409E-03 

-. 141442+02 

.60720E-01 

-.340902+01 

-77.  c 

. 63650E+00 

-. 149202+02 

.787802+01 

GAMXY 

SIGX 

SIGY 

’AUXY 
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s:g: 

5I5c 

'fiUl'Ax 

;  .  ocEro; 

.  OOOvCE-^Xi  -.  EiS'tlE-OE 

.  13376E'1>3 

61633E-04 

-.£251i£*0E 

l:466EfOC 

73Eb0£-0(i 

—  1 

91W83E--1 

3E535E»0£ 

.  ;;£3EE*':3 

0  . 260O0£*0E 

.50000E»01  -.32015E-03 

. 82072E-04 

-.c8130E-<'3 

-.35664Enil 

.85076E-); 

j37u6c'*’01 

.  ll£&4£-h;ii 

:i''b5c:E+0£ 

.  58'3(>'jE"j1 

3  .  34jC'0E‘(:c 

.30000E-K)1  -.3tf91bE-03 

. 3534bc-04 

38348E-03 

;:b59£*ci£ 

.  tc803£-Eil 

3‘tOiS£fOi 

-?H,  3 

.  37830E+<X.) 

;ij75E+i)E 

.E77b3E*'X 

CON'S! N-ES  DSNS  L 

"  £4 ENT  12 

0.  X 

y  EPSX 

E^SV 

SSiiXV 

SIGX 

5 1  GY 

SIGl 

5IG£ 

'hUTSX 

1  . 373C0E*0£ 

.(kDOOCE-^OO  -.S8057E-03 

.  i4368£-03  ■. 

.686£1E-<14 

lE'tESE-'OE 

-.“6786E“C'l  ■ 

6£345E*00 

-5^.  2 

78630E-0£ 

17468E+0£ 

87£93E*'M 

£  . 39000£»0£ 

.3C000E+01  -.£387££-03 

.63A75E-04 

,£8:S9E-03 

-.71313E+01 

.  i£156E*00  - 

338£7E+<jl 

-bd.  5 

.14543E+01 

84b40£+01 

“EjSEEH'I 

3  . 375C'(€-*<)£ 

.30(K'0E+01  -.308£OE-03 

.79£65E-04 

,28089E-03 

-.9££83t*01 

.70660E-0;  - 

33706E+'!il 

. ! 1641E+01 

j03££E+0£ 

574£bE-^:t 

CCN'fllNTES  DONS  .  ELE4EN4  14 

P.G.  X  Y  £?SX 

EPSY  GArtXY 

SIGX 

SIGY 

’■ft-jxy 

SIGl 

SIG£ 

*fi|jl"CX 

1  .40500E*02  .OOOOOE+00  -.404£9E-03 

.1D677E-03  -.95552E-04 

12083E+02 

.  16£3£E'KiO  - 

,;1h86EKi1 

“5**»  * 

.  £885'9£ni0 

:£:9<)£+0£ 

,&2391E+0l 

2  .  42000E*0£  .30000E+<il  i6£65E-03 

,49449E-04  -.2B361E-03 

-.48092E-0: 

.2B117EHI0  - 

,  34033£*01 

-t  3.  H 

.19856E-K): 

65;38E+01 

.tiAGSE-fO; 

3  .  40500E'H)£  .3iXi0(i£+01  -.23462E-03 

.O1B30E-04  -.27;78E-03 

-.70;3E£hi1 

.10162E+00  - 

,  326>E*01 

-ta.  7 

.  1370*E+01 

-.32819E+01 

, ‘t82blE'”l'l 

lONTPINTCs  dons  L 

ElE'^ent  : 

'  c 

k  J 

3.G.  X 

Y 

E33X 

EPSY 

GfltXXY 

SIGX 

SIGY 

1 

SIGl 

SIG£ 

■^hCYOX 

1  . 4350CEf0£ 

. 00OOOE»OO 

-.20152E-02 

.60935E-04 

15722E-03 

-.59610E+01 

.33779E+00 

,  1886faE+')l 

.  BSgSAE'H'Xi 

G4829E+01 

.  367 13E 

2  .45000£*0£ 

. GOOOOE^Ol 

-.949UE-04 

.21937E-04 

£8073£-C3 

-.2B617E+0: 

-.573I2E-0; 

,  33688£+'.'il 

-li.  2 

.£1894E-Hjl 

-.SlOb^E+Ol 

.  SSABSE-^Ji 

3  .  AG&XiE-KiE 

.30000E+01 

18016E-03 

.4gig5E-04 

-.26n£E-03 

-.53717E+01 

.;3£92E+Xi 

,  31354E+01 

d) 

.1551 ££+01 

d7899E+01 

.  +1705E+''; 

ICN-^filNTES  DONS  _  E_E4£.\^  16 

P.G.  <  E^Sx 

EPSY  SAflXY 

SIGX 

SIGl 

SIGY 

SIG2 

-£-l 

i  .46500E+02  .OOOOOE+00  731  IcEhH 

.  1177(€-03  -.50£10E-04 

1 39736 +01 

. 31816E+01 

-.60253E+‘j0 

-c3.; 
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.325966+01  -.  i+759E»01  .6'36'76*"1 
. ‘•BOOOEfOl  .300006+01  .731166-0'*  -.65A79E-03  -.136576-03  .30I66E*-00  -.756846+01  -.  15606E+<)1 

.6!ij68E-'-i:'0  -.737786+01  .464466+'+; 

.“ESjOE-^Ol  . 30iXi06''-01  .229046-;7  -.190116-‘j3  -.6'53486-03  -.  156096*-01  -.608346+01  -.304176»'jl 

.131456-16  -.760436+01  .3di)6l6-*0: 


CG\7m1N  63  DO’NS  ^  c.^676NT 
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« 


C.G.  <  Y  EPSK 

6PSV 

Sftxxv  5IGX 

3IGY 

'PlXY 

SIGl 

SIG2 

1  .;500C6hi1  .300006+011  -.115386-06 

,635656-04 

-.322666-03  -.364146+06 

-.719656*01 

-.337196X)1 

-3c'.  b 

-.  659iil::+01 

-.389186+06 

.  151136X6 

6  .1500)06*01  .500C'CiE+01  .945486-17 

.535656-04 

-.  195536X)3  .  5(i6j£E+o0 

.603416+0! 

-.234846X1 

-54.0 

.373866+01 

-. 119596+01 

.  6*67bE+*--l 

3  .(!0)0"j0'£+‘00  . 30)(»'i'0£+01  -.  ;!5386-0;6 

.  OOCK'OEHiO 

-.107566-03  -.3696-66+06 

-.  923066*01 

-.  169076+01 

-m7.  3 

-.917066+01 

-.  3698c;E*06 

.  1 39<'6E+'>6 

C5N*PIVT63  Dfi^S  -  616Y!6NT  13 

3.S.  <  Y  6PSX 

EPSY 

GAMXY  SIGX 

SIGY 

SIGl 

SIG2 

’•flUIYSX 

1  .*50)006+01  .3000)06*01  -.  163766-06 

.316666-03 

-.293736-03  -.371026+06 

.  103616X0 

-.356*66*01 

-CH,  b 

.43461£+<)0 

-. 374336+06 

. 1893+E+06 

6  .*50)0)06*01  .60(K)0E+01  .100516-16 

-. 176866-04 

-.489976-03  -.  141466+(!0 

-. 565846+00 

-.537966X1 

0 

.556986+0! 

-. 663716+01 

.538346+0; 

3  .300006*01  .300KK)£+01  -.163766-06 

.688546-03 

-.67*466-03  -.376946+02 

-. 667316+00 

-.369356X1 

-64.  3 

-.  373566+X) 

-. 375686+06 

.  138076X6 

;CN*A!N*65  DA43  .  6.676'l'l'  19 

P.3.  '  Y  6PSX 

£PSv 

GfiMXV  5I6X 

SIGY 

YflUXY 

E  '4 

SIGl 

SIG6 

TfiWHX 

1  .  PSO'CyOE*-);  .30u(>OE+01  -.  Il5;i£-<j6 

.689756-03 

-.678336-03  -.3*5176+05 

.636886-01 

-.334006X1 

-8**.  Z 

.  386936 -KiO 

-.  3*.5376+06 

.  176106**;)6 

6  .75(X)-)6*0;  .60C“X)£+01  .105006-16 

.430416-06 

-. 493786-03  . 344336-02 

. 137736-01 

-.596536X1 

-hS.O 

.593396+01 

-.591&76'Mjl 

.  596536 +'Jl 

3  .5O0:')':)6+'j!  .300006+01  -.  1151  ;6-02 

.293046-03 

-.6815*6X13  -.3**916+06 

.  1 68506 +*Xi 

-.337856X1 

-84.5 

.494766+00 

-.348176+06 

.176566X6 

;0N’fl;\+6S  !)0^5  .  E.ET'EM"  60 

P.3.  i  Y  6PSX 

6?SY 

Ga«XY  31GX 

SIGY 

'Au*  I 

-r-rp 

SIGl 

SI66 

’■fiUMflX 

!  .  105006 +<j£  .300006*01  -.  106406-06 

.267866-03 

-.686606-03  -.319066+06 

.594966-01 

-.  3388+6X1 

-84.0 

.4l431EniO 

-.  366bi:€+06 

.  163376X6 

6  .105006+06  .600006+01  .107646-16 

-.647666-05 

-.4314()6-03  -.197616-01 

-.791646-01 

-.577686X1 

-44.9 

.576746+*jI 

-.586636+01 

.  577696X1 
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27057E-<j3  -.28l38E-<:'3  -.31SS6E+03  .;3S77E-00  -.33766E-Hjl 
.4gi91£+0Ci  3£r£3flE+<)2 


3  .'30000E+0'.  .3Cwj00E+01  10540E-0E  . 


E^EJ^NT 

V  E-SX  EPSY  GA^«xy  SIGX  3IGY  T(wxy 

SIGl  GIGE  'flUiyfiX 

1  .;3500£+02  .  30'X)0E-Kil  -.  97%OEh:i3  .EA677E-03 -.EB375E-03 -.29373E+OE  .5GGE1E-<I1  -.EvjSOE+Ol 

.  448632+00  -.297b£E-K)2  .15105E+02 

2  .135002+02  .60000E+01  . 12890E-16  -.37887E-05  -.47743E-03  -.30310E-01  i2l24£+00  -.57239E+01 

,56543£+01  -.580592+01  .573012^01 

3  .12000E+02  .30000E+0!  -.97560E-03  .24843E-03  -.2811SE-03  -,8356CE+02  ,11298E+00  -.33743E+0! 

.4343fa£+00  -.23741£+<;)2  .151182+02 


CONTfllN'^ES  IWN3  L  E-E’^EN"'  22 

2.e.  X  V  E?SX  £aSY  GflMXY  SIGX  SIGY  'flOxi 

SIGl  SIS2  TfiUWftX 

1  .16500£*0£  .30000E+01  -.39602E-03  .22588E-03  -.28414E-03  -.268662+02  .  60136E-01  -.34097£r0i 

.485202+00  -.27231E+02  .138882+02 

2  .165002+02  .  600002+01  . 13957E-16  -.413152-05  -.476562-03  -.330522-01  12221E+0<j  -,57167E+01 

.56363E+01  -.580152+01  .57199E+01 

3  .15000E+02  .300002+01  -.896022-03  .227302-03  -.281142-03  -.268542+02  . 105372tOO  -.337362+01 

.  521 12E+00  -.  272702+02  . 138%£+02 
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CSNTPI^JTES  DANS  L  £ 
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cC'N’pinteb  dans  L 

ELEMENT  45 

P.  j.  X 

Y  £2SX 

EASY 

■GAMXY 

SIGX 

SI  GY 

’AlIXY 

SIGl 

S!5£ 

^ALWX 

1  , 37j00E+0£ 

.bOOOOE+')l  .74417E-17 

.31501E-05 

-.47n5£-03 

.25201E-01 

.  1«'80E+O(i 

joEEGE+'-'i 

.57169E+01 

-.55909E+01 

.  5b539E*'j; 

c  .37500E+02 

.SOO-OOE+O!  .31391E-03 

-.61368E-04 

-.£S£'£4£-03 

.93943E+<il 

-.9£487E-(il 

338b8E+'01 

, 10479E+02 

11775E+0’ 

.  56384E-'); 

3  .  5600<:€44;i£ 

.90000E+0;  .3;39lE-03 

-.8£07£E-04 

33189E-03 

.93866E+01 

11501E+00 

-.338£7E+'Jl 

.  10470E+02 

11961E+01 

.583£9E-'X 

SI'ji  Slui 


1  .  hOSOOE-Kic 

.  £oOv'-jE*'v1 

.5'3?(:5E-17 

. 170£9E-0fa 

-.45564E-03 

.  ;3bi33£-Od 
.5A7iiE+<;/i 

.  544g3£-j£ 
-.546A3E+C: 

E-i677£*'jl 
.  3“67~E*'0; 

E  .  h05(XiE+0E 

.  90000EHI1 

.  E3‘t89£-03 

-.6hS^5£-0A 

3:7£47E-03 

■  70(!£5E-Kjl 
.63O09E-HJ: 

i7S7d£+l''j 

iH75lE+C''. 

33i77E*<'! 

.  ■‘•dSSvE*  '1 

2  .ESCkX^E^OE' 

.  90(i()C’EX;: 

.  33^fi'5£-03 

-.63'‘7S£-)4 

-.38361E-03 

. 'OOSfeE+Ol 
.836a0£+01 

;53£3E+0': 

;5!l7£*u', 

3H0'33£-^Ji 

.  -9393  E*iV 

E9\'AINTE3  MNS  . 

ELE'CV  47 

- .  3.  X 

■/ 

EPSX 

E^SV 

Gfl9(xy 

5:gx 

31 5V 

'PijX  ' 

SIGi 

sIGc 

*Au!<Ax 

;  .  43SOCEHI5 

.  aOCMEK'l 

40g35c-16 

35364E-05 

4d01‘tE-03 

-.3'8c9;Enil 

;i3;6EniO 

j'j4l7E"): 

.497!1E'«)I 

-.511£6E+0; 

.  j0419E+'’'’. 

E  .  43500Ehi£ 

.  90000E*<31 

lbb0fciE“03 

^8477£“v4 

-.2S675E-C3 

.  49E'6£E+01 

££3'77E-00 

3£0('8E+0i 

.64594£-K)1 

;7560E+01 

.mOE'E-;'! 

3  .  4dOooe«;i£ 

.  9OOOOEH1: 

4S449E“<)4 

Ee073E-<i5 

.49164E+01 

35387E+00 

-.33688£*<jl 

.e579£E+01 

19i47£+0l 

.4£4b9E-0; 

CEN’AINTES  DP\S  ElEI^EN'^ 

“S 

-.3.  <  '' 

E2SX 

EPSV 

5Af!XY 

S!dX 

SIGY 

'fX,xr 

SIGI 

SIG£ 

■flUMfiX 

1  .46j0(>E-0£  .oOOOCE+Ol 

.;9166£-16 

,  i0056£X)3 

-.68437£-<t3 

. 8045£E+00 

.3£:8iE+0l 

-.S£l£5E*0; 

.;031£E-K)£ 

-.b£894E+0l 

.83007E+01 

3  .46500£«)£  .90000E+01 

.85147E-04 

. 88a£4E-04 

4i347E-{i5 

.34353E+01 

.35£35E+0: 

-.49E16E-01 

.84413£+<)1 

14d£4E+0; 

.4%!8E-0; 

3  . 45(i’jC€»';£  .Gf^yXE"); 

.851 “EE -04 

-.£:937E-04 

13£57E-03 

.£549£E+01 

3079SE-01 

I5908E*<'1 

.3309£E+<il 

78078E*'X) 

:E^’S:^*EE  Dfif.'S  _ 

-9 

-.3.  < 

V 

E2SX 

£DSY 

5I5X 

SIGY 

'’Al'XT 

SIGI 

5IG3! 

■fli;i7Ax 

;  .1jOooe+oi 

.97)0008  *01 

. :319££-0£ 

18747E^3 

.  48780E-03 

.40714E+08 

. 45j43E+01 

j6536E+0; 

.41638£+<j£ 

. 3630SE+0; 

.  l'9<Xi“E*0£ 

3  .30000E"j'. 

.  9<X)0';€*0I 

.  ;’694E-0£ 

-.38654E-03 

,  ;075bt-03 

.35:iHE«j£ 

. 13208E+00 

1£907E*01 

.351bl£+0£ 

. 74538E-01 

.  17543E+'>£ 

3  .iSO'HjEHi; 

.  ;£(X<!E*‘)£ 

.  c’6**c5£"'.Ji:^ 

-.5;777E-03 

,  44555E-03 

.80418£*0£ 

.45714E-KI1 

53467E*<)1 

.60793E+03 

.  41%3E+01 

.  d8d9'?d*'.)b 

;;s'a;'.*E3  eons  .  e^eyen'  ec 

-).J.  !  x  E?sx  easy  WYXY 

SI  jX 

si&y 

SIGI 

Sl&£ 

"AG^PX 

;  . -SOOuE*');  .  .  i2279E-<)£  -.30507E-<i3  -.38349E-03 

. 3685iE*0£ 

. 60feI8E~01 

34'019£*'; 
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.  1 1  -.  c  .j'‘S47E*0E 

-,  £5;30£'^^'‘J 
-, 75466E-01 

.  :3707~-^';c' 

-. 3c93EE+0; 

_c  7 
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so  *0  j-.’O 

- -  5i_3CH  ’CCn;- 

300  IF;I£SS.3'.3SiGC  "L  -vO 
:e=iers-30 

3G  TO  (9C‘j,  j£';,  ,  IE 

3E0  GO  TO  EEC 

C -  BLGCX  '3RE-' 

hOO  IF(!ERR.GT.4S'  eg  'G  ECO 
1£=IERR-4C 
GO  ’'u  (410,  WCi ,  ,'E 
*♦10  4Si’E;^^3,d4;o! IE 

£410  -GRm''’  *♦  ERROR,  GRE.-R  ^G''SE5  IE  SEEA'ER  '-‘RN  \£R:=’.:2 

;) 

SO  TC  300 

C -  BlCC:-:  ’ELE?*’ 

500  lECERR.GT.SR)  GO  '0  300 
IE=IERR-50 

SC  TO  :5;0, 300,530, 540, 550. EoO, ETC i,;E 
510  URITE(I<P.35:  ::);:,  iE 

E510  I^ORWTC  »♦  ERROR,  '.l..'-EER  Q'  '.ODES  I’.’E,':  13  GRE-R'ER  '-fi\  \'.E-=’ 

1,13) 

SO  'C  900 

530  yRI’Ei‘'P.E530)Il,:£ 

3530  FQRinflT(i  „  £:5:5q:,^  PRGPER'V  V.'s&ER  :’,’3,'  13  SREA'ER  T-P\  x&:E=’ 
,113) 

GO  ’0  900 

540  yRrE(*P,3540:n,:3 

E540  FCRMfl^C  ERROR,  GROUP  Vu.TBER  <’,:3,')  ;S  jREft'E-  ‘-PR  RSRE^ME 
1) 

80  ■^Q  900 

550  yRi'E(f*o,£550):;.:£ 

3550  RORJ«A*(’  »♦  ERROR,  E.E'’E\'  Wj:''£'ER  <’,14,’:  IS  GREA'ER  \E.'=’, 
114) 

GO  TO  900 
5E0  GO  TO  320 
570  yRIT£(,4P,3570)Il,I3 

3570  F3R’"flT('  t«  ERROR,  VJXBER  OF  E_E’'E\TS  (’.14,')  IS  GREATER  ’-'4^ 

!■=’,  14) 

C -  END 

900  i:=;3 

IF(!NiV.3E.3J  STOP 

RETURN 

END 
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iNOF.GaTcs.„s 

*DE3UG 

sl3RQu':'€  £RR£lr;:err. 

i.~===~=====--  =  - : 

C  REIN"'  ERROR  '''EbRRGi^E  RjR  EwCC'lS 


X'<?^0\/ES/'<,  rR,  ■'0,  rjjvyv 


C -  BLOCH  'COCR’ 

IF!IERR.GT.15;  5G  ^0  ECO 

;£=;esr-:o 

3C  ’0  !i;ci,  120, 130, 140, 100, :£C, i£o, :30,, ;e 
no  yRrE(>!R.i::o;:i,  ;E 

Elio  R0S*!flTi’  *4*  ERROR,  -'RST  ^OCE  \w-’'SER'\  14. '  :  13  ORO^’ER  '-R',  \'.*= 
IMA) 

30  TO  900 

lEO  '«RrE(MP,21EO)Il,;E 

E120  -ORfAfl’i'  **  ERROR,  SECOND  '-CDE  .MS'ERl’ ,  :  13  SRER'ER  ^'-SN 

l’,IA) 

SO  TO  900 

130  WRrE!»iP,E130)Il,:2 

2130  FORiAfl-^C  ♦♦  ERROR.  ROM',  .NLMSER  Cf  D.0.MM4,’)  IS  E-RER'ER 
1NDLN=MA) 

50  TO  900 

lAO  yRITE(yo,21A0) 

2140  FORA'flTC  «♦  ERROR,  t.TRS'  AND  SECOND  NODE  nL''3ER3  ARE  :nCD>'PC-;e.E 
lUITH  the  GENERPTIEn  PflRfi«£TCHij 
GO  TO  900 

150  yRrEl«,2150)Il 

2150  FORypTC  *♦  ERROR,  NODE  15  DENNED  “ORE  '-a\  ONCE’ i 

50  tq  900 

160  wRr£(^(D,2:60)  :i 

2160  tqsi«)T(’  ♦♦  ERROR,  '•ODE  Mh,  ’  13  NO’  DE-lNED’i 
GO  tq  900 

lao  wRiTEifP.aisoiic, II 

2180  -ORWTC  M  ERROR,  GENERR’ED  NODES  N.^x&ERlMi,  ’ )  IS  ;.ES3  ’-pn  NN’ 
1=',I4) 

SO  TO  900 

C - BLOCK  'DLPN' 

200  IF(IERR.3T.29)  SO  TO  300 

ie=:err-2o 

GO  TO  1210,220:, 12 
210  ufiiTE(.r?,22i!)):',  :2 

2210  '^CR“0T;’  »♦  ETTCR,  NbffBER  CF  O.S.F.  (M2,')  IS  GREP’ER  ’-HN  n0.n= 
l'.I2) 

30  ’0  900 

220  WRITE  IMP, 2220)11, 12 

2220  RORMfl’!'  ♦♦  ERROR,  NODE  NJTgr:^(<  _  ,  ;s  GREPT^R  T-flN 

1NNT=:M4) 
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c, 

c 


DA’a  nfer;,  li/.N'-c:-:. 

1  NSWI/lE/STCLjaC.-.D';; '..k:,:  : 

—  CCriVCN  /E3/ 

Da:fl  .rR/E/.ffs/fi/ 

-  CQWMGv.  ;AuL:C/ 

DPTP  :va/i/,  ;va‘<c«/i/.\’s.,E!/ 

...  DEFINE  i£RE  '-E  NL'EEF  Qr  IN'EEEFS  E;-.‘^;nE:  I 
FOR  >E  CCr?;_'ER  E^'^'-D'D 
Exar?uE3:  !S“  EI'^^.E  ^-EEIEION  nREE_.E 

l&r  DOO&'-E  FFEEIE’IN  '.=EE_.E, 

CDC  ^-:E..E 

DA'a  NREEE/2/ 


—  :o'«rcN  /Lcc/ 

DATa  me.) ,^ni2) ,ni'Ai , jfi) ,_u/z: ,.:t. 

d  LXX(l6),.XX(17),,XX(;8i,uXXfl9i,lxX(E'0’.-XX(E 

3  LXX  (23),lXX  id^i ,  LXX  !E5'  ,'IZ*'./ 

End 
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$LflR5£ 

tNuf .jATCflL.S 
BLOCK  DflTfl 


C  INITIALIZE  LAE€LLED  COMNONS 

INSLICr  RE.Au*a{A-H,Q-Z) 

CC?»ON/:GOR/.'^  I T,  NN7,  NDLN.  NDLT,  FAC  (3) 

CO^^CN/COND/NCLT,  NCLZ,  NCLNZ 
■IIGTKON/PRND/NPRN 
.:0!»,«!N7PREL/NGP£,  NPRE 

XWON/ELE^/NELT,  NNEL,  NTPE,  SGSE,  NE,  NIDENT,  NPG 
CCWVCN/AS£E/NSY«, NKG, NKE, NDLE 
ZT;rON/RFSQ/NEQ,  NRES,  «RES 

CGTTiON/RSOT/IEl.,  IT^iE,  ITPEl,  IGSE,  IDLE,  ICE,  IPSNE,  IPREE,  INEL,  IDEG, 

1  IPG, ICOD,  IDLED,  INELO,  IPGO 
CO^WCN/LIND/MBL,  NBLfl,  l^KGl,  WGE 

C0«10N/NLIN/EPSDL,  XNQRM,  OMEGA, XPAS,  DPAS,  DPOSO, NPAS, IPAS, NITER, 

1  ITER,  IMETH 

CC*MQN/VALP/NITES1 , NMDI AG, EPSLB,  SHIFT, NSS, NSWM, TCLJAC, NVAL? 
COMKON/ES/M,MR,MP,MUN(10) 

CC-'iMCN/'ALi.X/WA,  IVA,  :VAMAX,NflEEL,NTBL 

COMMQN/LOC/LCORG, LDLNC, LNEQ,  LDIMP,  LPRNG,  LPREG,  LLD, LLOCE,  LCORE,  LNE, 

1  -PRNE,  LPREE,  IDLE,  LKE,  lFE,  LKGS,  LKGD,  LKGI,  L-G,  lRES,  lDLS,  U'C, 

2  LDL£0,LDLG0,LFG0 

DITENSICN  .CQR8(1),'J)LNC(1),lNEQ(1).LDIMP(1),LPRNG(1),L?R£G(1), 

*  LLD(l),LLOCE(l),LCORE(l),LN£(l),LPRNE(l),LPREE(!),LDL£iI), 

*  LKE(n,LFE(l),LHG3(l),uKGD(l),LKGi(l),L=G(l),uRES(l),LDlG(l), 

*  LM£(1),LDL£0(1),LDLG0(1),LFG0(1) 

DIMENSION  LXX(i5) 

EQLIVAlENCE  (LXX(1),LC0RGI 
C -  CO'»'MGN  /COOR/ 

DA*A  VN:/30/, VDLN/2/, NDIM/2/,  FAC ( 1 ) ,  FAC (2) ,  FAC (3) /3*1.  DO/ 

C -  COMMON  /PRND/ 

DATA  ,n?RN/0/ 

C -  COMMON  /PRE./ 

DATA  ,No3E/0/,NPRE/0/ 

C -  COMMON  /ELEM/ 

DATA  N£LT/20/,NNEL/8/,NT?E/1/,N6RE/1/,ME/1/,NIDENT/0/ 

C -  COMMON/ASSE/ 

DATA  NSYM/0/ 

C -  COMMON  /RESO/ 

BATA  nRES/0/,MRES/2/ 

C -  COMMON  /RGDT/ 

DATA  IT3E;/o/ 

C -  COMMON  /LIND/ 

DATA  ’'‘<Gl/4/,MKG2/7/ 

C -  COMMON  /NLIN/ 

DA’A  EPSDL/1. D-2/, OMEGA/1. DO/, DPAS/. 2IXi/,NPAS/1/,NITER/5/,IMETH/1/ 
C -  COMMON  /VALP/ 


150 


'  VhLP' 


so  TO  ;o 


r - 

—  ElO'OK  'Q  CGJ^PUTE  ElbcNOflLUES  iSuBSP^jCEj 

'  VALP' 

550 

CfiLL  BLVflLP 

•30  TO  10 

c - 

—  UNDEFINED  BLOCS 

iSO 

CONTINUE 

270 

CONTINUE 

280 

CONI’!  Nut 

290 

CONTINUE 

300 

CGNI'INUE 

SO  TO  10 

C - 

—  END  OF  pi^OBLEM 

’STOP’ 

999 

WRITE (MP, 2020)  IVA»flX,NVfi 

2020 

FORNATI//’  END  CF  PROBLEM,  ’,110,’  UTILIZED  REAL  WORDS  OVER’, 110) 

STOP 

END 

149 


1 

-  SEARCH  FOR  THE  BLOCK  TO  BE  EXECUTED 

:0  30  1=1, SB 

:f(BlD':.eq.blocs(!))  so  to  30 

COHTiNUE 

wRnE(;'«5,3010i 

sc;) 

-OR'!AT(’  *4  ERROR,  MISSING  BLOCK  CHllING  CARD’,/) 

GO  ’0  10 

30 

GO  ’0  (110,130,130,140,  150,160,170, 

1  100,190,300,310,320,330,340, 

i! 

3  350,360,270,300,390,300,599),  I 

-  BLOCK  TO  PRINT  IMAGES  OF  DATA  CARDS 

'IMAG' 

no 

CALL  BLIXAG 

GO  TO  10 

n 

-  SLOCK  TO  READ  AND  PRINT  CO.MMENTS 

’COMT’ 

ISO 

CALL  BLCOMT 

■ 

GO  TO  10 

*  c— 

-  BLOCK  TO  READ  NODAL  POINTS  COORDINATES 

'CDOR' 

130 

CALL  BLCOOR 

GO  TO  10 

C— 

-  BLOCK  TO  READ  DEGREES  OF  FREEDOM  PER  NODE 

'DLPN' 

140 

CALL  BLDLPN 

• 

GO  TO  10 

c— 

—  Block  to  read  boundary  conditions 

’CCND’ 

150 

CALL  BLCDND 

GO  TO  10 

- BLXK  TO  READ  NQDft.  PROPERTIES 

’ PRND’ 

160 

CALL  BLPRND 

1 

GO  TO  10 

C — 

-  BLOCK  TO  READ  ElEMENT  PROPERTIES 

’ PREL’ 

170 

CALL  BLPREL 

GO  TO  10 

C — 

-  BLOCK  TO  READ  ELEMENT  DATA 

'ELEM' 

100 

CALL  BLELEM 

n 

GO  TO  10 

^  C-- 

-  BLOCK  TO  READ  CONCENTRATED  LOADS 

'SOLC 

150 

CALL  BLSOLC 

GO  TO  10 

r> 

-  BLOCK  TO  READ  DISTRIBUTED  LOADS 

'SOLR' 

300 

CALL  BLSQLR 

• 

GO  TO  10 

c~ 

-  BLOCK  FOR  IN  CORE  ASSEMBLING  AND  LINEAR  SOLUTION 

’LINM’ 

310 

CALL  BLLINM 

SO  TO  10 

C-- 

-  BLOCK  FOR  ON  DISK  ASSEMBLING  AND  LINEAR  SOLUTION 

'LIND' 

320 

CALL  BLLIND 

• 

GO  TO  10 

n 

V/ - 

-  BLOCK  FOR  NON  LINEAR  PROBLEM  SOLUTION 

'NLIN' 

330 

CALL  BLNLIN 

GO  TO  10 

C— 

—  Block  for  unsteady  problem 

'TEMP' 

340 

CALL  BLTEMP 

• 

148 

• 

1  IPG,  !COD,idleo. 

CGMM0N/Ll^D/'iLEL,\3.«,''<V ,  "-GE 
CurrO^/NuIJJ/EPSD.,  i(\GSr,  O'-'EI-p,  > : .  '.PPE, .’ p 
I 

CQi«M0.N/7ALP/\iTEs:,  nkdipg,  EPS-S,  E-i '•Ea.'', 
CCIWN/ES/’^,  rs,  rp,  ■'I'LUN  ( 10) 

COIWON/AILGC/Wfl,  IVQyflX.  NPEE.,  'iTE'E 
CC^.m/LDC/LCOP:G,  LDLSC.  .'.E5,  lDI’'P,  .P9'\3,  -PPE'E. -I 

1  LPRiviE,  LPREE,  lQLE,  JRE,  ■.='E,  j-.SE,  '.RED,  .RG: ,  .‘E,  .RES,  .E 

2  lDLEO, LDEGO,  lfso 
CK^fWi/'RVl/VDE (9) ,  RDWV  (512) .  ^i-E. 

CCMN/DuWPLfl/YlG.  Y2:,  )(:3,  )(2' ,  S5’4.  SL5,  S.£,  D*,  D5,36, 
1CL4, 3E5,  C'.G,  SL4,  SL5,  S.E,  B  (3, 3) 

COWWCN  Vfi( 20000) 

DA-a  BLCCS/’  ’■'PG' ,  ’  C0,'«'’ ,  ’  CCER’ ,  ’  I;LP^’ , ' CD'-D' ,  ’  pR'-D‘  , 

*  ’  ELE?!' , '  SCLC’ ,  ’  SOLS’ ,  ’  , '  :.:nD’  ,  ’  'a-Iv’  , 

♦  ’VALP’,’....’, 

DA'^A  NB/21/ 


C+++++++++  WRITE  HEADIN'G  TO  CONSOlE  AND  sCQjEST  iNOi.-  AND 
C  FILE  NAf!£S.  FILE  NAMES  MtST  CCN'^CSr  "  "'S  DCS 
C  CONVINTIGNS.  NO  PATHNAMES  A.^C«-E0.  A  nPm-  C.Afx 
C  CONSIST  OF  (AT  MGS’')  14  CHARAC'ERS:  DE'/:f  I.EnAm 
C 

C  SQR  EXAMPLE:  A: INP'jT. DA’ 


WRITE (t,  2000) 

WRITE!*,' (A\)')  '  COMMAND  siLE  NAMER  ’ 

read(*,'(A14)’)  infile 
WRITE(*,'(/)’) 

WSITEl*,’(A\)')  ’  CGTPUT  siL£  NAMEA  ’ 

SEAO(*.’  fA14)’)  CLTFI.E 
WRITE!*,' (/)' i 

WRITE!*,' (A)’ I  ’  PROCESSING  BEGINS...’ 

OPEN  (M?.FILE=C'L’‘':.E,STA’GS=' NEW) 
QPENIMR,  "IL£=IsF:^£,  :  PTL'S^’OlD’  ) 


: .  LENG’H  OF  SLA^R  CC.'‘rO.N  IN  REA.  WORDS  (’ABLE  VA) 

WA=20000 

: -  heading 

WRI’E!M0,2C0'ii 


:r)oo  'crwt':-:, 3';*, 

c  n 

X 

'  G.TOOZO’,  G.Chg’ 

1 

,/25X,’ 

MODIFIED  B''’ 

3 

C - READ  BLXK  ’ITLE 

ro 

t.n 

X 

REHE  £.  SXSC;^' 

10  READ  (MR.  1000) 

’■L'jN 

WRITE!*.’ (Al8,A*i’ )  ’ 
1000  -QRMAT(A4, 16, 1015) 

PROCESSING  BlDCR  ’,  BlGC 

APPENDIX  E 


MEF  PROGRAM  LISTINGS 


The  orograM  listings  for  are  provided  below.  Each  seoarate  disk  file,  or  ccffloiland,  is 
narked  by  the  Microsoft  EQRTRfiN  77  metacoiiiaands  which  preceed  it. 


$DQ&6 

INQFLOflTCALLS 


F  .  E  .  «  .  -  3  -  PROGRAM,  ’BOOK’  VERSIOM  OCTOBER  1979 
(G.TOUZOT  ,  G.DMH,  COMPIESNE  UNIVERSITY  OF  TECHNOLOGY,  FRANCE) 

MODIFIED  FOR  IMPi.MENTATION  ON  THE  IBM  PC  AND  ^HE  COMIJitBIA 
MPC  USING  MICROSOFT  FORTRAN  VER  3.S 


(  REHE  E.  RUESCH,  LCDR,  USN,  U.S.  NAVAL  POSTGRADUATE  SCHOOL  ) 


MAIN  PROGRAM 


IMPLICIT  REAL»8(A-H,0-Z) 

CHARACTERS  BLOC,  BLOCS (21) 

CHARACTER»1A  IfFILE,ajTFILE 
^iXlWCN/CCOR/NDIM,  NNT,  NDLN,  NDLT,  FAC  (3) 

COMMON, 'CO'O/NaT,  NaZ,  NCLNZ 
COMMON/ 3RND/NPRN 
COMMON/ PRP./NGPE,NPRE 

:O’^-0N/ELEM/)£LT,  NNEL,  NTPE,  NGRE,  ,ME,  NIDENT,  NPG 
COMMON/PSSE/NSYM,  W<G, NKE,  NDLE 
■rr^ON/RESO/NEQ,  NRES,  MRE3 

CO-M-ON/RGDI/IEl,  ITPE,  ITPEl,  I6RE,  IDLE,  ICE,  IdRNE,  IPREE,  i.NEL,  IDEG, 


126 

. 3750CE+02 

.  '»:'<::('6+')o 

.  X  XX+Ov 

.  6*2/ 

. ;  i-O'E*' ; 

07 

.37500£r02 

.  3'j-X0£*vl 

.  X ; ;  ;6*-'i-' 

128 

. 37500E+02 

■  o^''Jv'.'L*''.‘l 

.  A'OOOE-^OO 

.  OCC  26*00 

.  .'.(('Jz*.  . 

129 

. 37500E+02 

.  90(>':'06+':' ; 

.  l  -XOOz-X 

130 

.  37500E'K)£ 

.  13C'00£H)3 

.  •■’0.;.oOF+i'io 

.  ooo:-06*oo 

.  j  jOOOe-  : 

131 

.  39(iO0E*02 

.  'OO'.XiOE+CO 

.  COCXiOErOO 

.  voo:':'6*oo 

./A/;'**'.',' 

133 

. 3900CE+02 

.  30iA''C6+01 

.  X''J006*'.'(.i 

. ;oooo6*oo 

.  XOOOz*-/' 

133 

. 39000E+02 

.600006+01 

. 000006*00 

.0‘XiOCz*(( 

:3A 

. 3900CE+02 

.  'EO'OiOE+Ol 

. 000006*00 

.000 006*  jO 

. ;  (0006 . 

135 

, 39000E+02 

.  lE'XOE+OE 

.  00X06  *(0 

.  X0006-(’0 

.  :ocoo6-X' 

136 

.405006*02 

.  00CO06+')0 

.  X0006*00 

.  0uooij6-.iO 

137 

.  4(i500E+02 

. 300006+01 

.  XC006*X. 

138 

.  hOSOOEhiE 

.  500‘XiE+01 

.  00(^006 *C0 

.0X0(6*00 

139 

.  40500E+02' 

.  90X06+01 

.  (00006*00 

.  C(:C('  -*(''' 

.  ;X:0(6*(( 

I'tO 

. 40500E+02 

.  i3000£'K;3 

.  OXvOE+(h;i 

.  ('X>.'(';*00 

.  /(vOOE- ; : 

141 

. 420006*02 

.  000006+00 

.  (OXOErO''. 

.  OOOCCE'*’^*^’' 

. ;  XiOO-*x 

143 

, 420006+02 

.  30<XiOE+0 1 

. 000006*00 

.000006*00 

1  ?'vO*‘E'*''v ' 

143 

.  42000E+02' 

. 600006+01 

.  C'O'X'Oz  T-jjO 

*  C' vv*-.''/ 

.  ccooE-o: 

144 

.420006+02 

.900006+01 

.  000006*00 

. OOOOOE+00 

.  O/OX-iE-. . 

145 

. 42000E+02 

.  12'j006+02' 

. 000006+00 

.  X‘'.'00z*(0 

.  000006*'>'I 

146 

. 435006*02 

.  000006 +<Xi 

.0000(!6+00 

147 

. 435006+02 

.  30X06*01 

.  (Kj0006+00 

, OCOOOE+00 

.(v0006*0( 

148 

. 435006+02 

.60X06+01 

.000006*010 

.  000006*00 

.  0  :'>oo6*2i: 

149 

.  435(06+02 

.  900<Xi6*01 

.  (X!(iO0£+00 

.  000006+00 

. ; ;ooo6*oo 

ISO 

. 43500E+02 

. 120006+02 

.  OOOCO£*-OC 

. 000006*00 

.  (OOOOz-X 

151 

. 450006+02 

.  CxXkX'E+OO 

.  X(i006+00 

. 000006*00 

.  X-COO'z-X 

152 

. 450006+02 

. 300006+01 

.  0000(€*00 

. 000006*00 

.  v>jvOE-v! 

153 

. 450006+02 

,60CKi0£+01 

.  XX06+C0 

.  000006X0 

.  ?jOOOE-;C 

154 

.450006+02 

.900X6+01 

. 000006+00 

. 000006*00 

.  O'Xicoz*.' ; 

155 

. 45000E+02 

.  12X06+02 

.  00X06*00 

. 000006+00 

. vV(lz*('-.. 

156 

. 46500E+02 

.0X006+00 

.  OXXiE+OO 

.  0('0006*00 

.oxvOE-o; 

157 

. 465006+02 

, 300006+01 

.  XCOOE+OO 

.000(06*00 

;COOE-'-a 

158 

.46500E+02 

.600006*01 

.  OOO'XC+OO 

.  C00006*Xj 

. ;  oxiz-.;': 

159 

. 465006+02 

. 900006+01 

.  XX06+C0 

. 000006*00 

.  ;';oo(  z*('; 

160 

. 465006+02 

.  12(kXiE+(i2 

.OCOOOE*(X) 

,  0')000in»') 

.'OOOOE-X 

161 

. 480006+02 

.  XOCOE+OO 

.  (k)(h:ic6*co 

.000006*00 

.0  :;C0E‘0') 

162 

.  4800C6+02 

.300X6+01 

.  (k;0O0E+00 

.  0000’)E'^v ; 

X  (06*02 

163 

. 480006+02 

.60C<'06+01 

.  (lOXOE+OO 

,  0'vV0('E+0C' 

.+:'aOz-'jz 

164 

.480006+02 

.900006+01 

.  0X0(€+O0 

.  000006X0 

.oo:oo6*v, 

165 

.  48000E+'j£ 

.  120006+02 

.  00X06*00 

.  OOOOOEX'!' 

.  0  x.006*00 

ND  Or 

36G&LE>'. 

7(-X  2” 

A.-'-DS 

3V63  60000 
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75 

.  XX-' .  J 

.  -  I 

76 

.225006  *<02 

<  O^X*O''.fE+00 

.O'l  0006+00 

1  '  r 

77 

.  225tj0t*02 

.300'JOi*01 

.  OOCMX'E^x'  I.* 

.o:.)j6+'.-; 

4  'V  1 

78 

. 225006+02 

.  6oC'(i06+0 1 

.  0C0C»*)E-^00 

. COCO) -+0) 

.OXCE 

73 

. 225006+02 

.  900006+‘)l 

.  X’OCGZi'O 

.  iXOOE-OC 

‘.r 

80 

. 225006+02 

.  1200()£*<)2 

.  yxxKiz-^y, 

.  vG-X'-E-nX. 

6: 

.  240<Xi6+02 

.  0000()6+v0 

.  00CO06+0'i 

.  C0))06+)'l 

8£ 

. 240006+02 

.30C0C6+O1 

.  000(ti)6+('0< 

.  0000).6+(i)' 

83 

. 240006+02 

. 600006+01 

. 000006*00 

.  CC<j006+C") 

8A 

. 240006+02 

.900006+01 

.  000(106+00 

.  '.lOCO'.  r+OO 

4  jOOOvE 

35 

. 240006+02 

. 120006+02 

,  ;X!0006+C0 

,  oeo)i06-)o 

4  U'VV'.'x’i 

86 

.  255006 +(i2 

.  iX)O0C6+OO 

. 000006+00 

.  .!‘00CC6+Ci') 

4  000  J'.c 

87 

. 255006+02 

. 300006+01 

.  00C)C06+'Xi 

.  000 006+00 

■  ''.Z 

38 

.  255<Xi6+(i2 

. 600006+01 

.  000(i(i6+<)0 

.C00C(6+00 

.O'XD  -  6 

89 

. 255006+02 

.  '90<)006+0 1 

.  0CC006+00 

.  00C0O6+<)C 

.'AX'.*'- 

90 

.  255006+02 

.  i20006+')2 

.  C00(i(i6+(i0 

.  ')0C'0)6+00 

.  000X  6 

91 

.  270006+02 

,  ('.h)()OC'E'^CO 

. OJ0006+00 

4  jOC/X 

92 

.  27(006 +<02 

. 300006+01 

.  0iXi(K)6*00 

.  )C00C'6*oC' 

.  O'l'OOOE 

93 

. 270006+02 

•  oC*(JOOE'»‘01 

.  00(1(106*0) 

.  0CC’-.0£*Ov 

. OCOOvE 

94 

. 270006+02 

. 900006+01 

.  (iOOC<)E+OC 

.  000(:-.'E-*'‘X5 

.  vOOOOE 

95 

. 270006+02 

. 120006+02 

,  O^jOOOE-^OO 

.  :)CCC06+0C 

4  vO  V V  vZ 

96 

. 285006+02 

. 000006*00 

.  000(i(i6+(K' 

.  O'XXiOE+OC 

,  O'XiOOE 

97 

. 285006+02 

.30<)006+0l 

.  (XjOOOz+OO 

.000006+00 

.000006 

98 

.285006+02 

.600(t0£+01 

.  000(1(16+00 

.  0(i('(>C6+00 

.vXiOOE 

■99 

.  2850<€+02 

.  90<k)()6+0  1 

.  OOiXiOE+OC 

. OCOC06+00 

,  (yyyX'i 

iOO 

.285006+02 

.  120(06+02 

. 000006*00 

.  0000';6+0(i 

.  )00006 

101 

. 300006+02 

.  0(i(>Xt6+00 

.  000C'06*'X: 

.  000006+00 

. 000006 

102 

. 300006+02 

. 300006+01 

. 000006*00 

.  (XXOCE+O'C 

.  .):)0006 

103 

. 300006*02 

.600006+01 

.  (X!iXi06*00 

.(X:0<.-0E*('.! 

4  vOOOO- 

104 

.300006*02 

. 900006+01 

.  000(11)6  ♦'OO 

.  00C<)C6+(i(! 

.  00(1006 

105 

. 300006+02 

.  12(Kj06+‘)2 

.  000<<06-)0 

.  000'.06+00 

,  .  Xivi.: 

106 

.315006+02 

.  00(X-‘C6*')0 

.OCkKiOE+OO 

.  .)00C)6+(iC 

.  -  .OOO*  '! 

107 

.315006+02 

. 300006*01 

.  0()C006+0(' 

.  (iOO(iOE+'» 

.  OOOO'E 

108 

.  315006 +(>2 

.60(k;«;6+01 

. 000006*00 

.00C0(.6*00 

.  OvOOC'E 

109 

. 315006+02 

.  Xi<)006+01 

.  iX)0006*00 

. 000006+00 

,  ;00).)'6 

110 

.315006+02 

.  120006*<)2 

.000006+00 

.  0(l(l■006+0') 

.  .  jOOi.!:; 

111 

.  330006+')2 

. 000006*00 

.  CK'(i'  .‘06+00 

.  Xi0006+<)0 

.  DOOO):! 

112 

. 330006*02 

.  300006*0 1 

.  0<Xi(i(i6*CO 

.  OOCOOE+OiC 

.  )iO(iOOE 

113 

. 330006+02 

.60(1006*01 

. 000006*00 

.  OOiOCE+'l'O 

4  J'AtVV'i 

114 

. 330006+02 

.900(X)e*oi 

.  ('(OOuE+OiO 

. 000006+00 

. 000006 

115 

.  3300<)6+<:i2 

. 120006+02 

.  COXiOE+OO 

.  0'OoCo6+0<.' 

. 000006 

116 

. 345006*02 

.  'XK>(.'06+00 

.OO'XOE+iXi 

.  OO+XiOE+OO 

.) 00006 

117 

. 345006*02 

.30(i006+'X 

.  (kXkOOE-OO 

.  000006+00 

.  y.m-.'i. 

118 

. 345006+02 

.600006+01 

. 000006*00 

.  OiX+X^+OO 

.  ■;  00006 

119 

. 345006+02 

.  9<)0006+0! 

.  00(1(106+00 

.  X-0(  06+'))' 

.  ..'I.ij'.+.l- 

120 

.  3450)6+02 

. 120006*02 

.  C'Xi006*<}0 

.  0fX006+0v 

.000006 

121 

.  36i)006+02 

.  '.iO+0(+*00 

.  00(i006*)“.i 

.0(0)  06*0' • 

.  ,'X1(>.+ 

122 

.36<X)06+02 

.30CX6+01 

.  000006*00 

.  0000)'-+'.'0 

. 00006 

123 

.  36(Xi06*‘)2 

.  600<Xj6+01 

.  0(»Xh>“ 

.  OOO'^  'XXv 

.  '.IJIXI... 

124 

. 360006*02 

.900006+01 

.  O'XXiOE-KiO 

.  jiXiX'E+O  ) 

.  000006 

125 

. 360006+02 

. 120006+02 

.  /.W'l 

,  EO'jOOEH'l  .9‘XCCEi-Ol 

.  tX)0CC6+00 

.  00(«)0Eh?0 

;-c 

.600006+01  .  lcOOOE+C'3 

.  OO0)OOEH)O 

,  (mXiOCC+OO 

.  000006 +{)0 

.750006+01  .0COOOE+O<; 

.  OOOOOEn/j 

.  OOOwE-^OO 

.  O00(.)0t+'X) 

c . 

.75C00E+(>1  .30C00E+01 

.  OCOOOE+OO 

.000006+00 

.  000006+00 

iG 

.EECCkOE+OI  .6COOOE*01 

,  C'00006+00 

.  001)006+00 

.  OOC'OOEh)0 

1-3 

.75(1006+01  .900006+01 

.  000006+00 

.oooooeh)o 

.  0000(6+00 

30 

. "50CCE+01  , 13000E+02 

.  i.)0000t+00 

.  000006+00 

.  000()()E+()0 

.90000E+01  .OOOCOE+OO 

.  000006+00 

.  000006+00 

.000006+00 

.900C0E+01  .300006+01 

.  000006+0)0 

. 000006+00 

.  'X)00()E+00 

.'9O(k)0E+O1  .600006+01 

.000006+00 

.000006+00 

. 000006+00 

.  900006+0 1  . 9(Xiij0E+0 1 

.  0000)06+00 

,  ock;)(X)E+oo 

.  (100006+00 

35 

.  90000E+OI  .  12000)6+02 

.  000006+00 

. 000006+00 

,  000006+00 

Zt 

.  1 05006+02  .  COOCOE+'OO 

.  (X)00)))E+0)0 

.  0(m)006+00 

.  000006+00 

37 

.105006+02  .30000E+(ji 

.  000006+00 

.000006+00 

.  000006 H)0 

28 

.105006+0)2  .bOwOE+Ol 

.  000006+00 

.  000006+00 

.  (>(>OOOE+'jO 

35' 

.  1 05006+02  . 90)00)06+0 1 

,000006+00 

.000006+00 

.  000006+00 

■^.) 

.103006+0)2  .120006+02 

,  (Xi(X06-rtX) 

.  0i)0006+0(.i 

,  0()00()E+(» 

41 

.120006+02  .0000)06+00 

.  000006+00 

.000006+00 

.  000006+00 

42 

.120(X)E+02  .300)0.‘06*01 

.  X)0006+(k;i 

.000006+00 

. 000006+00 

43 

.  12000)6^2  .500006+-01 

.000006+00 

.0<X)006+00 

.  OX>OOE+O0 

u 

.12000)6+02  .  90)0006+01 

. 000006+00 

.  0001)06+00 

. 000006+00 

45 

.120006+02  .120)006+02 

.000006+00 

.000006+00 

.000006+00 

.13500€+02  .  OOXiOOE+'OO 

.  OO'XOt+OO 

.000006+00 

.1)00006+00 

47 

.135006+02  .300)006+01 

,000006+00 

.000006+00 

. 000006+00 

-*8 

.135006+0)2  .  60(X06+01 

.Xi()00E+00 

.  'X)0()06+<)0 

. 000006+00 

49 

.135006+02  .900006+01 

.000006+00 

.000006+00 

.000006+00 

5<j 

.135006+02  .120006+02 

.  0()Ci006+<!)0 

,000)006+00 

,  XOOOE+OO 

e* 

.150006+02  .  000)006+00 

.)X)0006+00 

.000006+00 

.000006+00 

,15000)6+02  .30COO.'6+01 

.  000006+00 

.000006+00 

.  000006+00 

m 

U'J 

.150006+02  .600006+01 

.000006+00 

.000006+00 

.  000006+00 

:4 

.150006+02  .9'Xi006+0)l 

,  ock;)006+oo 

.0000(16+00 

.  0iX)()O6+Xi 

55 

.  15O0JO6+O2  . 120006+02 

.000006+00 

.000006+00 

.000006+00 

56 

.165006+0)2  .000006+00 

.  0O()O0E+0O 

.000006+00 

.  0()OOOE+0O 

57 

.165006+02  .300006+01 

.000006+00 

.000006+00 

.X)000E+00 

53 

.165006+02  ,  60)01006+01 

.  000006+00 

. 000006+00 

.  o()00oe+oo 

59 

.165006+02  .900006+01 

.000006+00 

.000006+00 

.000006+00 

6C 

.165006+0)2  .120)006+02 

,  000006+00 

.  00<)006+00 

.000006+00 

61 

.180006+02  .  0)00006+00 

.  000006+00 

.000006+00 

.000006+00 

6<: 

.  1 8000)6+0)2  . 300006+01 

.  000006+00 

,0000(€+00 

.  000()OE+00 

63 

.180006+02  .  600)006+01 

.000006+00 

.000006+00 

.000006+00 

64 

.18CiXiE+0)2  .  900)006+01 

.  000006+00 

.000006+00 

.000006+00 

65 

. 180006+02  . 120006+02 

.000006+00 

.000006+00 

,000006+00 

d6 

.  1 950)O6+))2  . 0(X)OO6+O0i 

.000006+00 

,000006+00 

.  000006+1)0 

67 

.195006+02  .  30000E^Jl 

.000006+00 

.000006+00 

.000006+00 

68 

.19500)6+0)2  .  600)00)6+01 

,000006+00 

.0(i(iO<)E+00 

.000006+0(1 

59 

.195006+02  .900006+01 

.000006+00 

.000006+00 

.000006+00 

70 

,195006+02  ,120)01)6+02 

.  000006+00 

.000006+00 

.  000006+00 

71 

.210006+02  .000006+00 

.000006+00 

.000006+00 

.000006+00 

70 

.2100h;>E+02  .500)006+01 

.OOOOOE+0() 

.000006+00 

.000006+00 

73 

.210006+02  .600006+01 

.000006+00 

.000006+00 

.000006+00 

.210006+02  .900)006+01 

.  000006+00 

.000006+0<) 

.  ooxK)e+o() 

sig; 

s:g2 

i  .  4350<;‘E-OE 

.  9<J','0(iE'K!1 

.  iSOiSEH'S  49195E-04  '.2611cE"(i3 

,53717Eh)1 

132S2E-HX1  - 

,  31334E*<)1 

.o7&9'3£'Kil 

15512EHI1 

,  4 ;  705En’ ; 

E  . ASOOOE+OS 

.SCOOOEKH 

.54311E-0A  -.21937E-<I4  -.28073E-03 

.28617E-K)1 

.573i2E-<Ji  - 

,  EEoSfiE-K)! 

•  51084E+{>1 

-.21694E+0! 

.  EEAEEE-^Ol 

3  .  ‘t3500E»0£ 

.  lEOOOE^E 

.E0;5£E-03  -.60935E-04  1572EE-03 

.59610E+01 

-.33779E*00  - 

,  168s6E'>-0i 

.b4829E+()l 

85964E-KIO 

.  3fa7l3E»'''; 

CN^P 

N*£S  dans  L 

E.E*ENT  64 

P.  G. 

i 

y 

E^SX 

EASY 

GAKXY 

SiGx 

SIGY 

SIGl 

GIGE 

'HoYPX 

1 

.  46500E-K)2 

.90000E+01  - 

.i:615E-16 

19011E-03 

-.25348E-03 

.  15209EHI1 

.60834£+<;il  - 

3041 72+*)  1 

.76043E+01 

-.670572-13 

GeOElE*-/'! 

0 

. 4S000E+02 

.900CIOE+01  - 

.73112E-04 

25479E-03 

-.  13257E-03 

-,301£6E+<Xi 

.756842+01  - 

15'9<)6E+'jl 

.767732+01 

-. 610682+00 

‘♦EA'tEE-O'l 

3 

.A6500E+02 

. 12000E+02 

.731:22-04  - 

117702-03 

-.502102-04 

.139792+01 

-.3I816EHI1  - 

60£53£*00 

. 14759E+01 

-.  32j'96E*01 

E36”E-0; 

EX'lLlBRIliN  RESIDUP-S  fiND  REPC'ICPiS 


YGDES 

X 

Y 

1 

DEGREES  G2  =92: 

IDO!!! 

(*  =  prescribed: 

( 

.OOOOOE+00 

.000002+00 

.  000<XiE+00 

.00(h)OE+00  * 

.000002+00  ♦ 

.  OCOOOE+Ck) 

.31XX1O2+OI  .(XioOOc+OO 

.  00000£+(h) 

* 

.00<XiOE+00  ♦ 

3 

.00000£+<!0 

.60000E+<i!  .OOOOOE+00 

. OOOOOE+00 

.000002+00  ♦ 

.  00<XiOE+00 

.  3'X)0()E+<)1 

.  iX«Xi02+<j0 

.  OCKX'OE+CXt 

.00(1002+00  ♦ 

5 

.  000(WE+00 

.  1200‘.)£+02 

.  OCXiOOE+OO 

.000002+00 

* 

.000002+00  * 

f 

>2 

.  I50<j0£*01 

.  00(i'OOE+00  .  iX)0OOE+O0 

.000002+0(1 

.  00000£+(k) 

7 

.  15000E+01 

.300W2+01  .000(X€+00 

.OOOOOE+00 

. OOOOOE+00 

3 

,  15000E+iil 

.  60000£+j  1  .  0C'000£+00 

.  (XiOOOE+ijO 

.  0(X'0()E+0<j 

3 

.  15000E+01 

.  9000C‘£+01 

.000002+00 

.  000002+00 

.  0000(i£+OCi 

;C 

.  150'Xi£+i)l 

.  1E0002+02 

.  CKXXtOE+OO 

.  0(kXi')£+00 

.  OOOOOE+(Hj 

[  ^ 

. 30000E+01 

. 000002+00 

. 000002+00 

,  OCiOOOE+OO 

.000002+00 

*  0 

.  300002+01 

.30(i00£+01 

.  0<j000E+(Xj 

. 000002+00 

.  OOOCOE+iXi 

Iw 

.  30(X)0E+01 

.600002+01  .000002+00 

.000002+00 

.  0(XXiO£+00 

\(t 

.  EOOCOE+Ol 

.900002+01 

.  OOOOOE+OOi 

. 000002+00 

.  OChaOE+CYi 

•  c 

4  <•> 

.  30000E+01 

.120002+02 

.OOOOOE+00 

. 000002+00 

. 000002+00 

16 

.  4500f)E+(il 

.  000002+00 

.  iXkXX'2+<» 

. 000002+00 

.  0(0002+0(1 

17 

. 45000E+01 

.300CX€+01 

.OOOOOE+00 

. 000002+00 

.000002+00 

18 

. +50002+01 

.  600002+01 

.  OOXkXiE+oO 

.  0000<)2+00 

.  0<X'00£+0(i 

19 

.450'X)£+01 

.  GOOOO'E+Ol 

.  00<j00£+00 

. 000002+00 

.  OOO0OE+O(7 

EO 

.  450002+01 

.  lE'  iOoE+OE 

.  0<)0<X>£+w 

.  00<XX€+<Xj 

.  OOC-COE+OiO 

d’. 

,  60<Xj0E+O1 

.  00CXI0E*00 

.  000002+00 

. 000002+00 

.  OOOOOE+'jO 

EE 

.  iO'''OOE+'Jl 

.  30000£+<i  1  .  CjOOOE+OO 

.  0(i00(€+00 

.  UWWt+’.’O 

.6OOOI1E+O: 

.600C<)E+01 

.  OOOOOE+00 

.  00(Xi02+00 

. 000002+00 
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jh\3  - 

3-E''3N''  53 

-.5.  X 

V 

ciPjX 

E-3i 

3S*ixy 

Si'jX 

SlSr 

'4.  <  1 

SIGl 

SIG2 

’pvvp* 

!  .3i500E-)3 

.  5*j000E-Hj: 

47137E-03  -. 

i!56'5E-03 

E8403E-03 

,  j4I44E+C3’ 

■.  607303—01 

34090E-01 

. 143S0E+03 

a36SOE*0') 

.  7B75v'E*'.'. 

3  .  33(iOO€-h:ic; 

.  SOOOOEh-iJI 

40306E-03 

10E36E-03 

-.23116E-03 

. 12073E+02 

-.5;i06£-0l 

33739E+01 

,lE'354E+02 

33539E+'>0 

. or** .'w-  . . 

3  .31500t+03 

.  luOoOE+0'2 

31654E-03 

325C4E-03 

-.&0055E-04 

. 27523E+C3 

. 13093E+00 

.27548E-H'd 

.  1 1 199E+00 

.  13713E-^7E 

L  H . 

N'ES  DfiNS  L 

ElE^EN"^  6 

j 

3.G. 

l 

y 

EP5X 

EPSV 

G4MXy 

5IGX 

SIGf 

'H'u  * ' 

SIS! 

SI  62 

"hL+'Px 

.  34j00£ni3 

. 30C00E+01 

.389163-03 

-.  99346E-04 

-. 28348E-03 

.1165SE+02 

-. 62603i-vl 

-.340133*01 

.  12575E-H12 

-.  978503+00 

.  67765- *'''1 

. 36000E+03 

.  9'jOCK:.'E'K)! 

.33015E-03 

-. 82073E-04 

-. 2ai30E-03 

.95884E*01 

-,650763-01 

-. 337563*01 

.10652E+')2 

112843+0; 

.589003*01 

3 

. 34500£*02 

.  13’OOOE+03 

,7494! £-03 

16376E-03 

-.616333-04 

,225!1E*02 

. 114863+00 

-. 739603*00 

.225353+02 

.  9'j4633-01 

.ll2233*vc 

CCNTfllNTES  DfiNS  L  ELEMENT  6 

i 

.  3  •  X  \ 

£SSX 

EP5V 

GAMXV 

SISX 

blaV 

■A.,Xv 

SISl 

SIG2 

TAUHAX 

1  .37500E*02  .90000E+01 

. 30820E-03 

-.792653-04 

-. 280693-05 

.922833+01 

-.70860E-0i 

-.337063-0; 

. 103223+02 

-.116413+01 

.  57^iSi'‘0l 

2  .39000E+02  .SOWOE+Ol 

.238723-03 

-.63479E-04 

-.281893-03 

.71313E+Oi 

-. 121563+00 

-.  338273-01 

.846403+01 

-.  145433+01 

.495923+':t 

3  .575003+02  .12000E+02 

.  58057E-<)3 

-.  i4366E-<>3 

-.686213-04 

. i7429E+02 

.467863-01 

-. 823453*00 

.  17468E+(iu 

, 766503-02 

. 972993-0; 

co,n"a;n'es  dans  l 

ELL+ENT  62 

P.Q.  X 

Y 

tPSX 

EASY 

GA''XY 

SIGX 

SIGY 

'Mu*' 

SIGl 

SIG2 

'AUMftX 

1  . 405003*02 

.900003+01  . 

234623^3 

-.618303-04 

-.271783-03 

.701323+01 

-. 101623+00  - 

,32614E+<0; 

.828193 +'01 

-, 137043+01 

.482613*01 

2  . 420003+02 

.900003+01  , 

162653-03 

-. 494493-04 

-.283613-03 

.480923+01 

-.281173+00  - 

,  340333+01 

.651383+01 

-.  198563+01 

,  424983+01 

3  . 405003*02 

.  12(003+02  . 

404293-03 

-. 106773-03 

-.955523-04 

. 120833+02 

-. 182323+00  - 

,  114663+01 

.  1219(5£+02 

-.  288593  *(0 

.  623913*01 

:qn^q;n'£9  dans  l  element 

63 

p.s.  X  y 

£PSX 

EASY 

GRMXY 

SIGX 

SIGY 

'ALxY 
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Ji 

.  ;b’-  jOE<-Li 

. IEOOOEtvE 

.17^^5EE-C2  -.435E&E-0;: 

i  -.59506E-0A  . 525^1 E*OE 

.  15437E+0('  -.71h07E‘-00 

.5Ej4;E+0E' 

,ON'^fiIN  tS  DLNS  »_ 

ELEMENT  55 

P.G.  \ 

y  EPS< 

E3SY 

SfllUXY 

51  EX 

Sl'ji 

'hLYV 

SI51 

S I GE 

'fiLMftx 

'.  .  135'XiEHid 

.  3CK.iO(iE»Oi  .3C516E“03 

-.E0313E-03 

23AE4E-03 

.E4i4(i£*02 

-.50378E-')!  - 

34l09E-K)l 

.E4611E+0E 

53;53EHXi 

;E57EEi-.)E 

E  .ElOOOtHiE 

.90000E*01  .736E8E-03 

-.13555£-03 

-.ES112E-<i3 

.E2077E+0E 

-.47E36E-LI1  - 

33735EKI! 

.  E258CIE+0E 

-.55013E+iXi 

11565E*0E 

3  .  ISSOOE-KiE 

.  IEOOOEh^E  .  :5633E-i;iE 

-.33:61E-03 

-.55604E-04 

.  47j33E-h}E 

.l3514E-w>j  - 

7i5E'5£-^jO 

.  47544E'KiE 

. 1E435E+00 

E37; 05-01 

CONTAIN'ES  DQnS  L  element  5£ 


S.G. 

X 

y 

E?SX 

EPSY  GflMXY 

SIGX 

5IGY 

"H'w/.'f 

SIGl 

S1G2 

'fl'j'MOX 

.22500E+0E 

.  90000E-01 

.  7E183E-03 

18e54£-05  284c'jE-(i3 

.2i640E+02 

6024cE-0i 

341 10£-vl 

.22163E+()2 

j3376E+(>0 

.i:374E-.;i2 

2 

.  240C'0E+02 

.  90000E+OI 

.  65ES4E-03 

-.;6471E-03  -  282I2E-03 

.  19577E+02 

-.47227E-0; 

53734£-»“0i 

.2oi4oe-h:ic 

-.61095E+00 

. 10376E-02 

3 

.EESOOEKiS 

.  lEOCXiE-KiS 

.  141675-02 

-.34994E-<j3  -.59628E-04 

. 42534E+02 

.13527E-k}0 

-.7;554E*<'Xi 

.  42546E+<i2 

.  12320E+(>(i 

CCNTfilNTES  CANS  L  E-E^ENT  57 


P.G. 

X 

Y 

£2SX 

E^SY 

GA«XY 

SIGX 

SIGl 

SIGY 

SIG2 

*fiLMPx 

1 

.25500E+02  .90000E+01 

. 63850E-03  - 

16I51E-03 

-.2842^5-03 

.191405*02 
.  13726E+'jE 

-.60238E-01 

64al8E+'00 

-.  34109£+'01 
. 101885-13 

y 

,  27000E^02 

.90000E-01 

.569615-03  - 

14388E-03 

-.2ai;2E-03 

.  17077E*0e 
.17717E-K>£ 

-.473555-01 
-.  68797E+<)0 

-.  337355-01 
.SEOEb:-.'! 

3 

.25500E+02 

.  12000E+02 

. :2500£-02  - 

30827E-03 

-.596475-04 

.  37534E-K)2 
.375475+02 

.  13516E+00 
.  12!46£+(Nj 

-.715765+00 
.  l87l35+'..2 

coN-fl: 

N’ES  DONS  L 

ELEMENT  53 

5. 

X 

Y  E^SX 

EPSY 

GOMXY 

SIGX 

SIGY 

*00  XY 

SIGl 

SIG2 

'fluMfiX 

1 

.2850CC+02 

.900'00E+Ol  .555195-03  -. 

140685-03 

-.284225-03 

.  166415+02 

-.  603165—01 

-. 341065+01 

.1731C€+<i2 

-.  729965+100 

.  9('20 1  E-i 

0 

.  30'000£+02 

.90o0<j£+01  .46630E-03  - 

123065-03 

-.2S113E-03 

.  145775-02 

-.460115-01 

-.  337355-01 

.153 185 +03 

-. 78867E+U0 

.  3I053IE-V1 

3 

.285iX)E+0£ 

.  120CKjE*02  . 108335-02  - 

^66635-03 

-.597185-04 

. 325335+02 

. 13443E+00 

-. 716625+00 

.325495+02 

.  H35a5+i>o 

. 152155+03 
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Cl  C“J 


SJBROUTI'JZ  (ILQ^G,  'RG£_, ”B-,  id J) 


c 

u 

c 

L 

c 

c 

c 

c 

c 

c= 


TO  flLLCWE  fl  REAL  OR  IS’EOER  "Aa.E  O'!  ARRAY  v'A 
INPOT 

I.ONG  LE^STH  QF  'KE  *AE.E  '0  EE  AL-.GOA"D 

(IN  RECL  OR  ITEOER  ACROEi 
I  REEL  'ABLE  TV^E  : 

.EQ.C  lY'ESER 

.  EQ.  1  REAL 

TBL  I'iAfE  OF  'HE  TABLE  ;A4) 

OUTPUT 

IDEB  TABLE  TO  BE  ALLOCATED  3‘^AR'S  I'.  VA'IOEB! 


IMPLICIT  REAL«6(A--,0-2) 

CHARACTER*^  TBL 
COMMQN/ES/M,  MR,  M^,  '<DUMMY  CO) 
CGM«ON/ALlQC/WA,  IVA,  IWMAX,NR££L,  IDW.Y 
CQMMOM  W(l) 


DIMENSION  KA(1) 

equivalence  (va(;),ka(i)) 
DATA  ZtSO/O.DC'/ 


C - CALOLATE  THE  ^ASLE  .ENGTH  IN  REAL  WORDS 

ILGR=ILONG 

IF  (I REEL.  EQ.  0)  ILGR=(  ILCNG^'.REEL-I ;  /\R£EL 
IVA1=IVA+ILGR 

C -  CHECK  I-  ENOUGH  SPACE  IS  AVAI.AS.E 

IF(IVAl.LE.NVA)  GO  '0  20 

C .  AUTOMATIC  EXTENSION  OF  'HE  BLANK  CCMMOv  CORRESPONDING 

C  SYSTEM  COMMAND  EXIST  ON  >E  COMPUTER  LEE"' 

C  CALL  EXTEND (IVAl.IERR) 

IFdERR.EO.  1)  GO  TO  10 
NVA=IVA1 
C  GO  TO  20 

C -  ALLOCATION  ERROR  (SOT  ENCUGH  SPACE) 

10  WRITE(MP,2C00)  TBL, IVA1,NVA 

2000  FCRMATC  »«♦  AL. SCAT  ION  ERROR,  'QBLZ’,A4/’  REQLIRED  SPAOEiMO,  ’ 
1  REAL  WORDS,  AVAILABLE  £AACE:’,:9,’  REAL  WORDS’; 

STOP 


C - ALLXATE  TABLE 

20  ID£B=IVA+1 
IVA=:VA1 

IFCVA.GT.  IVAMAXi  IVQMAX^IVA 
IF(M.GT.O)  WRITECP.EOIO)  'BL,  IDEB,  IVC. 

2010  FORMAT (60X, '  ™lE  ’,A4,’  GOES  FROM  VA(’ ,  17. ’ )  '0  VAC ,  17,  ’  j '  i 

C - INITIALIZE  THE  ALLOCA'^ED  TABLE  '0  ZERO 

I1=IDEB 

IFCREEL.EQ.O)  :I  =  (:i-1)*.nPEE--^: 

I2=IUIL0NG-1 
IFIIREEL.EQ.O)  GO  TO  40 


154 


30 


DO  30  i=:i,;3 
VP(I)=ZE^ 
RETURN 
40  DO  50  1=’.'.,  ;£ 
50  Kft(i)=0 
RETURN 
£ND 


SUBRiDU’INE  VIDECDEB,  IREE./B^.; 


c 

TO  DELETE  A 

tab;.e  frcm  vA,  -dl^cwed  sv 

’^PACTING 

c 

c 

INPUT 

IDEB 

-IRS'  PCSriGN  CF 

'ABLE  '3  ?E  DELE'ED 

c 

I  REEL 

TYPE  CF  'AB-E  (SEE 

c 

c= 

TBL 

NAME  OF  THE  'AS.E 

.4^) 

IMPLICIT  REflL»3(fi-H,0-:) 

CHftRflCTER*4  TBL 
COWMON/ES/»,  MR,  MP,  MDljMMV(  10) 

COMMON/flLLDC/NVfi, IVR, !VfiMftX,NREEL,NTBL 
COMMON/LQC/LX);  '25) 

COMMON  Ofl(l) 

C - SEARCH  ECR  >'£  FIRST  PCSI’ICN  OF  NE)tT  TABLE 

I1=IVA+1 
DO  10  I=1,NTBL 
IF(L)(X(I),LE,IDEB)  SC  ”0  10 
IFdXXdl.LT.  ID  H=LXX(:) 

10  CONTINUE 

C - SHIFT  AlL  tables  AF-IER  THIS 

IO=II-ID£B 

IFdl.EQ.IVA+l)  GO  *C  40 
DO  20  I=1,NTEl 

IF(LXX(I).GT.IDES)  LXX(I)=LXX(I)-:0 
20  CONTUSE 

DC  30  1=11, IVR 
J=I-ID 

30  VA(J)=VA(!) 

C - PRINT 

40  iva=iva-;d 

IFIM.ST.O)  WRITE  (MP,  2000  ^L,  ID,;DEB 
2000  FORMAT  (SOX, 'DELETED  mE  ’,A4,’  COMCACTIN'G  ',;7.’  RE^L  WCRDS  AF” 
IR  VAC,  17,')’) 

RETURN 

END 
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sl^brout:n£  bli^sg 


TO  CALL  ANB  EXEGGTE  BLOCK  ’ IKfiG’ 

TO  PRINT  CUT  THE  IK5SE  CF  CS-fi  CAROS 


IJ^PLICIT  REAL»8(A-H,0-Z) 

COWGN/ES/?',  TR,  yp,  yOLW  (5) 

COWON/TRVL/CART  !20) ,  SDUW  (501  i ,  NULL 
DATA  ICAR’^N/40/ 

IF(Ml.EQ.O)  «1=?"R 
WRITE;?!P,2000) 

2000  rOR«A^(///,  IX/IXAGE  OF  OATA  CARDS’/1X,2S(’=';,,') 

WRITE («P, 2005) 

2005  FORMAT!/ 

1  50X,’CQLUMN  N  U  M  8  E  R' ,/,  13X, ’CARD’ .BX, 

2  10X,’l',5X,’2',9X,’:’,9X,'V,0X,'5’,9X,’6\iX,’7’,9X,*e’,/, 

3  12X,  ’ NUMBER’ , 8X,  8 ( ’  1234567S90’ ) ,  /,  12X,  3 , bX, 80 i ) 
ICART=0 

ICART1=0 

10  READ(M1,1000,END=30)  CART 

1000  FORMAT (20A4) 

ICART=ICART+1 
ICARTl=ICAfi’-l+l 
IFdCARTi.LE.ICARTM)  GO  TO  20 
WRITE(MP,2010) 

20 10  FORMAT ( 12X,  8 !  1H-) ,  6X,  80  ( 1 H-) ,  /,  13X,  ’ CARD’ ,  9X, 8 !’  123456789fj'  i ,  /, 

1  12X,’NI>1BER’,8X,9X,’1’,9X,’2’,9X,’3’,9X,’V,9X,’5’,9X,’6’, 

2  9X,’7’,9X,’8’,/,50X,'C  0  w  U  M  N  N ’UMBER’) 
WRITE(MP,2015) 

2015  F0R.MAT(1HI,//) 

WRITE(MP,2005) 

1CART1=0 

20  URITE(MP,2020)  ICART.CART 

2020  F0RMAT(10X,I10,bX,20A4) 

GO  TO  10 

30  yRIT£(MP,2010) 

WRITE (MP, 2030) 

2030  FORMAT!///. SIX, 'E  N  D  0-  DATA’,/,1H1) 

REWIND  Ml 

READIMl.lOOO)  CART 

RETURN 

END 
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ajBRCUT:\£  BlCCxt 

C  tq  CPL.  AND  EXEC'JTE  B-CCH 

IMPLICIT  R£ftL*8(A-H,0-Z) 

CHfl,RPCTER*4  BLflSiC,CflRT 
CDMMCN/ESyK, MR. XP, XDUMMY (10) 
COWlON/’RVL/CflST  (CO ,  RD..X>iy  (511) ,  NULL 
DflTfl  BLANC/’  ’/■ 

WRITE («P, 2000) 

iOOO  FORMAT!//’  CCMMEVTS’/'  ’,10!’=')/! 

C - READ  A  COIWENT  CARD 

10  READ(MR,1000)  CART 

1000  FORMAT (ECAA) 

C - SEARCH  FOR  A  iWOL./  BLANK  CARD 

DO  £0  1=1,20 

IF(CART(I).N£.BlANC)  go  to  2i] 

20  CtWTINOE 
RETURN 

SO  WRITE (MP, 2010)  CART 

2010  FORMAT (1X,20A4) 

SO  TO  10 
END 


SUBROUTINE  BLCCOR 

C  TO  Cft-L  BLOCK  C30R 

C  TO  READ  NODAL  CGORCINfi’ES 

IMPLICIT  REfiLt8(ft-H,0-2) 

CHfiRfiCTER*4  tbl 

COWlON/COGR/NDir,  NNT,  NDLN,  NDLT,  RAC(3: 

COMW)N/ES/M,  MR,  MP,  Ml,  MDUM.MY  (9) 

CQIWON/fiLLOC/NVfl,  IDLWy(4) 

CMMON/LDC/LCDRG,  LDuNC,  lDUMMY  (£3) 

C£)»10N/TRVL/"«C1  (3),  :.N(3!,  RDUMrYOl?) 

COWON  VP(1) 

DI«NSION  T3L(£) 

DATA  2ERO/O.DO/ 

C 

Ci-H-  THIS  IS  COMMENTED  OUT  BECAUSE  0“  T-E  mc  -ER'RAN  OOmo- 
C+++  ILER  BUG  SHICH  UL.  NOT  IMTIA:.::e  t^AREE  ARRAYS 
C+++  THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALl  '0  isrS.  «;'ICH 
C+++  EXISTS  SaELY  TO  INITIAlIZE  "ASlE  NA^ES. 

C 

C  DATA  TBL/’ CCRG','DLNC’/ 

C 

C  HERE  IS  THE  CALL  TO  S£’  AROUND  THE  CC-MAIlER  B.C- 

C 

CALL  INITBL(TBL,'CCOR’) 

C 

C+++  AU  OF  THIS  WAS  TO  G£*  AROUND  T-.E  MICROSOFT 
C+++  COMPILER  BUG 

C 


C -  BLOCK  HEADING 

IFIMl.EQ.O)  M1=:«R 
READ(MI,lOOO)  :n,FAC1 
1000  FORMAT (315, 3F10.0) 

C -  DEFAX T  OPTIONS 

IF(IN(l).3T.O)  NN>:n(1) 
IF(IN(£).GT.O)  N’DJN=:N(2) 
IF(IN(3).GT.O;  NDI.M=;n(3) 
DO  10  1=1,3 


’,181'=’)/ 
(NN'-’.IS/ 
(NDLN) =',15/ 
(nd:t)=’,:5/ 
(tAC)=',3E;E.5/ 
(.\VA)=',  l:0) 


IF(FAC1(I).NE.ZER0)  FACO^FCCIO 
10  CONTINUE 

C - PRINT  BLXK  PARAMETERS 

WRITE(MP, £000)  M, NNT, NDLN, NDIt, FAC, NVA 
£000  F0RMAT(//’  input  OF  nodes  (M=’ , I£, ’ i’ /’ 
1  15X, ’MAX.  NUMBER  OF  NODES 
£  15X,’MAX.  number  OF  D.G.t.  0£R  NODE 

3  15X, ’DIMENSIONS  OF  THE  PROBLEM 

4  15X,’ COORDINATE  SCALE  FACTORS 

5  I 5X,’ WORKSPACE  IN  REA.  WORDS 
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C - allocate  S5ACE 

IFtLCORG.EQ.  1)  CAL.  ES?AC£(NN"»\'L':'‘,  1, *E.; :i , .COSE) 
IFILDLNC.EQ.l)  CALL  ES^ACEsNN'+l, 0, *£-;£■ 

C - EXECUTE  THE  PLXK 

CALL  EXCOOAiVA(LCC^RG),'^A(LDL\C)) 

RETL’S'J 

END 


Stifi, ROUTINE  EXC00S(VC0.R6,  ^<D-\C) 


C  TO  EXECUTE  BLOCK  ’C20R’ 

C  READ  NODAL  COORDINA''ES 


IMPLICIT  REALtS(A-H,0-Z) 

COMMON/COOR/NDI^,  .NNT,  N'DLN,  NDLT,  rAC(3! 

COMMON/ES/M, MR, MP. Ml, MDLMMY (9) 

COMMON/TRVL/ X!  (3) ,  X2 !3) ,  RDL'XMY (515) ,  NLIL 
DI)©iSIGN  VCQRG(»),KDLNC!*) 

DATA  S?ECL/1.2345&7a9D3l/ 

C -  INITIALIZE  C00RDI);ATE3 

I1=(NNT-1)*NDIM+1 
DO  10  I=1,I1,NDIM 
10  VCCRG<I)=SP£CL 

C -  READ  NODAL  DATA  CARDS 

IFIM.GT.O)  '.<RI‘!^(MP,£000) 

2000  FORMAT!//’  NCDAL'DATA  CARDS’/) 

20  R£AD(m,1000)  INI,  XI,  IN2,  X2,  INCS,  IDLN 

1000  FOR«AT(2(I5,3F10.0),2I5) 

IF(Jl.GT.O)  WRITE  (MP,  2010)  INI,  Xl,  IN2,X2,  INCR,  IDLN 
2010  FORMATC  >>>>)', 2(15, 3E12.5), 215) 

IFdNl.LE.O)  GO  TO  60 

C -  DECODE  THE  CARD 

IF(INl.GT.NNT)  CALL  ERREURlll, IN1,NNT,C) 
IF(IN2.G7.NNT)  CALL  ERREuRdS,  iN2,N,‘r,0) 
IFdIG.LE.O)  1N2=IN1 

IFdXN.GT.NDLN)  CALl  ERREUR(13,  ;DLN,NDLN,0) 
IFdDLN.LE.O)  IDLN=NDLN 
IFdNCR.EQ.O)  IfCR=l 
Il  =  dN2-INl)/INCR 

i2=ini+ii»im:r 

IFdl. £0.0)11=1 

IFdNE.NE.  12)  cal:.  £RR£UR(14,  :n2,  IN2,0) 

C -  GENERATE  NODES  BY  INTERPXATION 

DO  30  I=1,NDIM 
Xld)=Xl(I)*FACd) 

X2d)=X2(I)*FACd) 

30  X2(I)  =  (Xc(I)-X:d))/Il 

11=0 

I2=dNl-l)*NDIM+! 


'■L 


:3=(iv:R-i!»ro:>i 

DC  50  :\2,  'xcs 

KDLNC::\+.I=ICL\ 

iF(va:=)6(:3).>:,33::-:  15, 

DO  40  I=l,ND:r 
'VCGRG!:2)=Xl(:!+*£iIlH: 

40  12=12+1 

ii=n+i 

50  i2=:2+:3 

so  TO  20 

C - CHECK  "OS  KISSING  NODES 

60  Il=NNT*ND:>t»l 

12=0 

13=WT+1 
DO  SO  1=1, NNT 
Il=::-NDIK 
13=13-1 

IF(VC0R6(I1!-SPECE)  70,30,70 
70  IF(I2.EO.O)  12=13 

SO  TO  90 

ao  IF(I2.EQ.0t  CALL  ERSE'JR(16, 13,’.3,0) 

IF(I2.NE,0)  CALL  £SRSLR!17, 13, 13, 1) 

90  CONTINUE 

IF  (12.  NE.  NNT)  CALL  £RREJR(13,  NN’,  12,0! 

C -  TOTAL  NUNKR  OF  D.C.F. 

NDLT=0 
Il=NNT-t-l 
DO  100  1=2,11 
100  NDLT=NDLT-A<DLNC(I) 

C - (OUTPUT 

IF(M.LT,2)  GO  TO  120 
WRITE(!«P.2020) 

2020  FGRIKaT(/10X,”lCDE  D.  C.F.  ’  .5X, ’X' ,  IIX,  ’  Y' ,  llX,  ’  I' / 

Il=l 
I2=ND!N 

DO  no  IN=1.NNT 

URITE(IKP,2030)  !N,KDLNC(IN+:),  (VCORGl  • ).  :=:i,  12) 
2030  FaR«flT(10X,2I5,3E12.5) 

I1=I1+NDI« 
no  I2=I2+ND!M 

120  RETURN 

END 


160 


SuBRGLi'lVi  EXDi.3N;KDL\C) 


C  TO  execute  BLCCK  ’ DL?^' 

C  TO  READ  TME  :'iU'«BER  0?  D.  0.  Tr;  «^;2E 

I>IPIIC:T  REAL*a(A-H,G-Z) 

CCWON/CCCR/NDI.'!.  NN",  NDL',  FVJL_ !]} 

CCW0N/E3/'!,  TR,  .r?,  :il ,  O) 
cow)n/tr'vL/ki  ;;5).rdu'!t?iy(5:*: 

DI'^YSION  KOLVC':*! 

IFfM.ST.O)  WRITE  (YD,  £00C; 

3)00  .-cr«at(//'grcij?  of  D.O.^V) 

C -  READ  A  GROUP  CARD 

10  RE  AD  O'!!,  1000)  !DLN,K1 

1000  FCRYAT(1615) 

IF (M.  GT.  0)  WRITE  (IP,  2010)  IDUN,  ,<1 
2010  FORtlATC  >))))’,  1615) 

IF(IDLM.L£.0)  '30  TO  40 

IFdDLN.GT.NDLN)  CAUL  ERREUR(21,  :DL\,.'v:DLM,  1) 

C - STORE  D.O.F.  NUMBERS 

20  DO  30  1=1,15 
J=K1(I) 

I'fJ.uE.O)  GO  '■0  10 

IFIJ.GT.NNT)  CALL  ERR£L'R!22,  J, .VN",  I) 

30  KDL.'4C(J+1)  =  IDLN 

READ(«1,10;0)  K1 
1010  FORMAT (5X. 1515) 

IF(M.GT,0)  WRITE (MO, 20201  Kl 
2020  FORMATS  )>)))’,  5X,  ISIS) 

GO  ’•Q  20 

C - TOTAL  NUMBER  Cf  D.  C,  - . 

40  NDLT=0 
J=,\NT+I 
DO  50  1=2, J 

50  «X.t=nD,.T+-<DLNC(I) 

RETURN 

END 


3UBRQlJTi\E  5-CCSD 


C  '0  CflLL  BLOCK  'CONS’ 

C  ''0  READ  BOuNDflSY  CD^tDI'''’ OnS  AnD  OcNE-A^E  "Ai;-;  ;\cL.' 

IMPLICIT  REfiL*e(fl-H,0-ZJ 
CHfiRfiCTER*4  ’■&! 

COW1Q!N/COCR/NDIM,  vr,  NOLN,  .NDl',  F\.L_  (5, 

CCMMON/CDND/,\ii:,  NCL2.  NCLM 
COWON/ALLOC/NVfl,  IVA,  IDL'^MYIS) 
C0«M0N/'ES/«,rR,YA,*'l,MDLMKY(5) 

C0I1MCN/LQC/LCDRG,  l.DLnC,  -NEQ,  ^DIYA,  .jjmwy  (21 ) 

COMMON  Vfi(l) 

DIMENSION  TBL(2) 

C 

C+-^  TrilS  IS  COMMEN-'ED  gut  BECft.SE  C-  '-E  -CTRAN  CGMP- 
C+++  IL£R  BUG  WHICH  wILl  NG’  INriA.IZE  {_P'3E  A’EPV£ 

C+-H-  THIS  ARRAY  IS  NOW  IMTIh.IZED  BY  A  CA ”C  rt-rlC-i 

C+++  EXISTS  SOLELY  TO  INITIALIZE  taBlE  NA-'ES. 

C 

C  DATA  TBL/’NEQ  ',’DIMP’/ 

C 

C  HERE  IS  THE  CAlL  TC  GET  AROUND  T-E  CGMAILER  BUG 

C 

CAlL  INITBLlTBL.'CCND’i 
C 

C>*+  AL-  this  WAS  SIMPLY  TO  GET  AROUND  'H£  HiCROSOfT 
C>++  COMPILER  BUG 

C 


IF(Ml.EQ.O)  M'.=MR 
WRrE(MP,2(KX))  ” 

2000  EORMAT(//'  INPIjT  cc  ioUNDARY  CONDITIONS  (M=’ ,  12. ’ 

1  33('=’)/) 

IFClNEQ. £Q.  1)  CALl  ESPACE1NDL',0, TBLd),  JNEQ) 
IFiLDIMP.EQ.  1)  call  ESPACEIN'D.T.  1,TBL(2),  JIMP) 
call  EXC0ND(VA(LC0RG)  .  'vA(lDLNC)  .  VA(u.NED) ,  vAIJIMP) ) 
CALL  VIDE(LDIMP+NCLT, i,TBL!2)) 

RETURN 


SUB’Gi.''I'<c  EXCOiNDiVLC^j,  '.L-M', 

Cr=r======r=rr==r=r=r=========r==r=c.=====r======r============.=====r=  = 

C  'C  EXECu"  BLOCK  ’'CCND’ 

:  READ  BOUNDARY  CCNDI^IGnS  AND  3LNERALE  ’ABlE  (.’.EO) 

IMPLICr  REAL»3  >A-H,Q-Z) 

CCWION/CCuR/NDIY!,  \NT,NDLN.  nC-', -NL„(3) 

COWnCN/  CCND/ nCLT,  nCLZ.  NC^.NZ 
CGWCM/RESG/NEO,  N.-IL.S'E) 

CO««ON/E5/'Y,  ^R,  r3,  Ml,  i''Du?1MY  (3) 

COWCN/TRVl/  KV  ( lb) ,  V  ( 10) ,  H (EO) ,  ICQD ( 10) ,  RDL'“'’'Y ;h73>  ,  NU1_ 

DIMENSION  'VCQRG (*) ,  KDlnC* *) ,  knEQ'.*;  ,  VDIM3(*) 

DATA  L7/7/,La/8/.;.;D/16/  ,X1/O.OCO/,XE/O.ODO/,XC/O.ODO/,ZERG/O.DC/ 

C - CUMULATIVE  TABLE  .KDLNC 

DC  10  IN=1,NNT 

10  KILSC  ( IN+1)  =KDLNC  (IN)  +HD'.NC  (  IN+1  ) 

I1=X«T+1 

IF(M,SE,E)  «RITE(.MP,EOOO)  iKDL.vCdN),  :,V=1,  ID 
2000  FOI««AT(/7’  NL^!B£=  0=^  D.Q.*^.  PRECEDING  EACA  NODE  (D^nC)V 
1  (1X,10I10)) 

C -  INITIALIZE 

.NCLT=0 

NCLNZ=0 

NCLZ=0 

IF(M.SF.O)  WRITE  (MP,  2010) 

2010  FQRW)T(//'  BOUNDARY  CONDITIONS  CARDS’/) 

C -  RLAD  A  B. C.  GROUP  CARD  :  10  CODES  +  PRESCRIBED  VAL. 

20  READ(«1,1000)  ICOD,  (V(I),  I=1,L7) 

1000  FORMAT(10I1,7F10.0) 

IF(M.eE.O)  WRITE  (IIP,  2020)  ICOD,  (yil;,  >1,^7) 

2020  FORIWTC  )))))',  1011, 7E12. 5) 

C - CAECK  FOR  A  BLANK  CARD 

J=0 

DO  30  >1,10 
30  J=J+ICCDa) 

IF(J.EQ.O)  GO  TO  no 

C -  READ  ADDITIONAL  CARD  IF  REOUIRED 

12=0 

DC  40  ID=1,NDLN 
IF(IC3D(ID).LT.2)  SO  TC  40 
12=12+1 

IF(I2.NE.L8)  GO  *0  40 
READ(!»1,1010)  (V!!),I=L8,NDLN) 

1010  FORMAT(10X,7F!0.0) 

IFIM.GE.O)  WRITE iMP, 2030)  (V'll).  I=.d,'iD-N) 

2030  FORWITC  ) ))))',  iOX,  7E12. 5) 

40  CONTINUE 

C - read  NODE  CARDS 

50  READ (Ml, 1020)  (KV(IN), iN=l,Ll6) 
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1020  PGRMft’ilSIS) 

iFi'i.SE.o;  20^0)  ho!:m,:s=:,.!6! 

2040  FORMIC  )>>;;’,10K.;bI5) 

C - FORM  fitO 

00  100  IN=1,L16 
I2=W(IM) 

c - Elio  OF  GROUP  0-  B.  C.  CR  E'JD  0-  'iCOES  CR  OvOLVSIS  I-  'J  NODE 

IF (12)  20, 20, SO 

60  IFdE.ST.NNT)  CfiLL  ERR£UR!32,  :2,V^*, !) 

Il=KDLNC(r2) 

IDN='i<Dl,C{I2+l)-Il 

Q -  SEMERATE  ODIMP,  IT  IV  -(SEE  !ThE  PRESCRIBED  O.E.^  -■ED-EES: 

IV=0 

DO  90  ID=1, IDN 
11=11+1 
IC=ICCD(ID)-! 

IF(IC)  90,70,60 
70  NiaT=vaT+l 

VDIMP(NCI")=ZERC 

NCLZ=NCLZ+! 

KNEO(Ii)=-VCl.T 
GO  TO  90 

80  NaT=VCLT+l 

IV=IV+1 

VD1M0(NCLT)=V(IV) 

«;lsz=\CuVZ+i 

KNEO(I;)=-^Cl' 

90  CONTIVlx 
100  CCNTINbE 

Q - ADDITIGNAu  CARD  ’>'  nQOE  Si^BERS 

GO  IQ  50 

C - GENERATE  EQLA'IGN  VBERE  A  NED 

110  11=0 

DO  150  IN=1,NN'’ 

ID=HDLNC(IN) 

120  ID=ID+I 

if(Id.gt.-<D(.,nc(:n+i))  go  to  isc 

IF(KNEQ(ID))  120,150,120 
130  11=11+1 

KNE3(:D)  =  n 
SO  TO  120 
150  CONTINUE 
NEQ=I1 

C - OUTPUT 

IF(M,LT,Oi  go  to  170 

WRITE (MP,  2050)  NM,  NDlT,  NEQ,  NCLNZ, NCLZ,  vCLT 
2050  FORMAT!// 

1  15)(.’ TOTAL  NUMBER  OF  NODES  ■NN’)=’,:3/ 

2  15X, 'TOTAL  NUMBER  OF  D.O.F.  (N0LT)=’,;5 

3  15X,’ NUMBER  OF  EQUATIONS  '3  BE  bC.v'ED  (nEOi  =’,:;/ 

4  15)t, 'NUMBER  OF  PRESCRIBED  NGN  ZERO  D.G.-.  (NGLN'Z)=' ,  15. 
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5  iSX, ' ''’iiMBER  Cr  -RESCR.BiD  ZERC  D.u.  ■. 

6  ISX.’^OTSl  NLir&£R  GF  ?R£SCR':5E3  D.C.^  i'. 

IF (M.  G£. d,  SND.  \CLT .  ST. 0 i  i*RIT; (It?, w'C I'"-' . ' .  .=1 1 

S060  FGRItfiK//'  PRESCRIBED  VfiL'JES  lVDI*P!  ‘ /7  I'.bX,  lOE;i.5i 
4RITE(!1P,£070) 

E070  FOREST (//'  NCDfii.  CQCRDINh"S  PRRflV’  / 

;  ’  NO  D.L.’,5X,’X’,12X,’yM2.<,’Z’,’0X,'E50.P':CN 
2 (NEC)’/) 

12=<j 

DO  160  IN=1..NNT 
11=12+1 
I2=I2+NDIXI 
IDl=t<DLNC(IN)  +  l 

id2=kdl'x;;n+i) 

id=id2-:d>i 

IF(iD2.-T. ID!)  :D2=ID1 
xi=vcoRS<:i) 

IF (iNDlX'. 8E. Xc=vbCRG( 1 1  +  1 ) 

IF(NDIM.SE.3)  X3=vCGRG(Il+2) 

150  WRITE C^P, 2080)  I\, ID, XI, x2, X3, (RNE3(I), I=ID1,  ID2) 

2080  F0fWflT(lX,2I5,3£:2.5,  ICX.MIS) 

170  RETURN 
END 
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'Q  cai.  olXk  '~-:y 
X  XhL  \GDa_  35CP£S’-:ZG 


If^PLICIT  R£«t.*3(A-n, G-Zi 
CHAfiftCTER**  "d- 

co>rcN/cccR/ND;-'.  «*.  \nglL  ;£) .  -m;l-(3) 

CCMKON/PRND/NPRN 

CCWro/ES/?!,  ■'"R,  '*2,  ri,  iiDGvyY  (3i 

COlWON/LCJC/'Ln  (y; ,  .PR\3,  uC.WiSO) 

CCWON  VPdi 

data  TBL/’PRN3'/ 


!r  (Ml.EQ.O)  «1=.'«R 
READ  (1*11. 1000)  NPRN 
lOOO  PQR^'ATdS; 

WRITE £000)  Cl.NPRN 

2000  TORW!//'  OF  'iQDAL  PROPERTIES  IE. ’)' /’  ',t0C=’;'' 

1  lOX/NOt-iBER  OF  PRCPER’IES  PER  S'CDE  (NPR%;=',:5) 

(LPRNG.  EQ.  I)  CAi —  ;3PACz(N-V  *^\PRv.  1,  ^“R^O) 

CALL  EXPRND(VA(L?RNG>) 

retjrn 

END 


SL'BRCUTINE  £XPRND(VPRNG; 


’0  EXECLTE  BLOCK  ’ PRND’ 
C  READ  .MjDAL  properties 


IMPLICIT  R£PL*a(A-Sj-Z) 

CaWN/COOR/NDI)’'.  VNT.  NN'L..  :E: ,  tnll.  (S) 

ccmnon/prnd/nprn 

co«xoN/ES/r,NR,>!P,’i;,rOLr>'V(3) 

DIMENSION  VPRNG'.*) 

c - 

L -  READ  PRCPER’IES  SGCE.>I5E 

I1=NNT»NPRN 

READ(M1, 1000)  iVPRNGd).  >1,  ID 
1000  -GRMATieFlO.O) 

ITCX.O-E.O)  WRITE (MP.EOOO)  (VPRNGd),  >1,  ID 
EOOO  FORt«T(//’  CARDS  OF  NODAL  PSCPERTIESV  !*  )))))  ’ ,8E1E.5) ) 
RE*LRN 
END 
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jt .'D' ^ 
33,  ,K33.VKG;.VF3.VD^: 


-  -III,  'v33^3,  y-3\E,  v'y-EE.  'A;.  v^Z,  v-z, 


^zsz/^BZA.G  ::3’“:Bu’ed  .qads  I'j  f^a 


;'*:3_;c;t  3-2) 

::  ''^3N/E-E“/:.E.:.  'AE.,  nt5e,  '«se,  >!E.  mbEv,  r3ibL,. 

;;vy-A,,.  C33£/‘.,SYw^ 

:;''’':'i/^EE:/\E3.'.-;..E(2; 

33"''I'..  33j’''3E_,  lEPE,  IT^El,  333E,  IDuE,  ICE,  IPENE,  IPrEE,  ;%£:.,  IDrG, 
1  , 1 CCC,  \CL_  ( 3) 

' 3  (i) 

D ; '‘ENS : CN  ■: l:  . ♦  .  v'D I M?  ( ♦  J ,  K.DCE  { ♦) .  VCORE ( *1 .  VPSNE  ■: ♦ ) .  VPREE  ( ♦  1 , 
'A- 1  *i ,  vKE  i * ! ,  Vr I  ( *) ,  VK33  (♦! ,  'v\5D (♦) ,  vXGI  (♦( ,  A  vJL^t *) , 


-  REWIND  E.EMEN’  FI.E  'IE 
RErtl'xD  .'‘E 

-  .CCP  CVES  'RE  EcEffirS 
Jv  Ev‘  .c"!,N'c_ 

-  REPD  PA  ElE®T  =^RC!''  FILE  ''E 

IP,.-  *DE.Ei  ( '*£,  ,-',-CCE,  VCCRE,  VPSNE,  vPREE,  N.NE ) 

-  EVP;.LfiTE  IN'ERPfLATIGN  FUNCTI3NS  IF  REQlilRED 

iD,  I^'PcI i  30  I'D  10 


IP—  E-E'l'.Bu'CCRE,  yPh.nE.  v'PREE,  VD.E,  ONE,  vFEi 

--  EvAL-R'E  E-ErEN'^  VECTOR 

i:CD=? 

op:..  E-ETuB  VCORE,  VPSne,  vprEE,  vD-E.  OHE.  v-E) 

—  PRIN'  E.ETENT  VECTOR  V'FE 

IR:'‘.3E.l1  «RITE\''P,EOvOi  IEl,  iV-E(I),  >1.  IClE) 

-IR-P’:/'  /ECTR  (FE)  ,  E'i.E’'.ENT:M5/(10)(.;0ElE.5i) 

-  QSSE''Ei-E 

IPl,-  hSEE.Y),  1,  IDLE,  NSV,",  RLGCE,  V-D,  VKE,  vFE,  vKGb,  vKGD, ’/'i'jI.  v-c) 

ITPEl^ITPE 

pE'CRN 

END 


,  .-^\E 
\E5.  v”i 


VDLE) 


(ELE“EV  -:.NC'':GN 


PSEE/’oV'.  Vj.  \-:e.  sdle 
EE/'^.  >'3,  .rs, ,  rs.  vdotv  o) 

L !  'E **£ ; E'.  C2 ;  ♦ ) ,  vD ! J'? ( ♦  I ,  ECE  i ♦ ) ,  VCEEE ;  *) .  v- ENE  ( « i ,  v ^EEE  i * > , 

1  ■  ‘  E ! » i .  VKE  > ♦)  i  v7E  '!♦) ,  VKGS (♦) .  ’/',GD (♦! .  VKGI  (♦!  i  vFG (♦> ,  vCGRGi  ♦! , 
1  -.E-\E ' n  ,  E^EE  { ♦) ,  V RE5 ! * i ,  'JD^E { *) 


Zr _ SSE'j ; 'U,  vDI''*?,  :,lCCE,  VlGEc,  VPEcE,  -(Aic.,  •'-c,  v-Gs, 

1  v'Kj J.  '/K3 " ,  VF j,  ‘/'DLE,  vEES) 

-  -.U  .  r_ 

!■  ''.3E.  1)  WRIT; (MP, ciOCO)  iVFGI.i, 

-CR*'FT,/'  3-CBfi^  VEC’CR  i!^G) ’ /CJ.  10E1E.5) ) 
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:L;SGU*:NE  BLSC;.^ 

C  *Q  CSLl  block  ’SCLB’ 

C  "^C  fl35E''S;-Z  CISZ.ZIiLi'EB  lCADS  {Elz^S-vT  rCNCTICN  7) 


I^'^PLICIT  REAL*3{A-H,  u~Z) 

'CHhRhcter*4  tel 

CC'i'!QN/CXR/40::'l,  "^NT,  }iDL:^,  LDL',  -^;LLi. (3) 

CCT'-GN/  EI-EX/  \L:L.  ■  4 ) ,  >iE.  KNULL  ( E ) 

X  ’T'Qi'i/ASSE/'Na''''',  fLKB,  nKE,  '-.DLE 
;C’‘I*:CN/RE£G/''.EQ,NSES.4(<ES 

::''''C\/Lc:/-;cR3,  ldlnc,  lneq,  ldimp,  .prng.  lpreg.  xd,  i.loce,  lCgre.  .ne. 

1  ^'RNE,  -PRaE,  -DX,  lKE,  lFE,  wKGS,  ^KSD, ^KGI.lFG,  :.RaB, _DlG,  LDUiTf^y  (4) 
:C4,>t\  Vfid! 

:>:te^s:c.v  tpliSj 

E — +  *iIS  IS  CCWENTED  OL7  BECfiLSE  CF  THE  JiS  FGR'RflN  COMP- 
G+++  ILE.R  BUG  WHIGH  UILL  NOT  INITIALIZE  tLARGE  ARRAYS 

C-^  "HIS  ARRAY  IS  'VCw  INITIALIZED  BY  A  GALL  TO  iNlTB’_  »HIG.i 

G*++  EXISTS  SOLEi-Y  TO  INITIALIZE  TAEiLE  NAMES. 

G 

C  DA’A  ’,M£  ',’"E  ’ , ' DtE  ’ . ’KGS  ’ . 'K5D  ' , 'KGI  ’ . 

C  i  'RES  ’/ 

C 

C  HERE  IS  ’’HE  GA’.:.  'G  GE'  AROUND  THE  CGNPIlE.R  BUG 


GAu..  INITBLiTBL.’SQlR’) 

C 

!>+•'  Al_  ’’HIS  WAS  SIMPLY  ’G  GE*  ARCUND  THE  MIGROSOr 
C->■^  CC^PILER  BUG 


IFIMI.EQ.O)  >11=M,R 
IF(’’S,£Q.O)  MG=N£ 

«R!*E(MP,GOCC)  M 

EOCO  -CR’-ATi//’  ASSEMBLING  OF  DISTRIBUXD  uGADS  (>1=ME,’)’/ 

I  ;X,40i’=’)/) 

I-LFS,EQ.l!  CAci.  £SPACE(NEG,1,T5L(:),^FG) 

IF(..K£.Ea.l)  GALl  ESPAGE(NKE,1,TBL(2),LKE) 

I-i-FE.EO.l)  CALL  ESPACEINDLE,  ;,TEL(3),LFE) 

IFILDLE.EQ.'.)  CALu  ESPACEINDLE, ’.,TBL(4),LDL£) 

I-IlhGS.EO.I)  CALL  ESPACEINKG,  :,TBL(5),LKGS) 

IFILIHGD.EG.  1)  CA.L  EEPPCEiNEQ,  i,  TBL(6),LHGD) 

(N3VM.  ET. ; .  ALD.  ^HGI .  EQ.  1 !  CALL  ESPACEINKG. !,  TBL (7) ,  JGI ) 
IFILRES.EQ.  1)  CALL  ESPACEINDL’'’,  I,TEL(a),LRES) 
iCAL-  E  YSOL  R !  VA  ( .LC ; ,  LA  (LD I  "P) ,  VA ILLCCE) ,  YA  (LCGRE) ,  VA  (LPRNE) . 

;  VA (LPREE) ,  VA (LNE) ,  VA (LKE) . VP (LFE) . VA(LKGS) , VP (LKGD) , 

E  VA  ( .H 3 1  ) ,  VA  (  LFG  ) ,  V A  ( LCCRG ) ,  VA  ( LDu.NC ) ,  VA  ( LNEQ ) , 

3  VQ(LRE5;,VA(LDLE)) 

p  r'pi  •  a:  ^  • 
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SI;BR(]UT!\'E  EXSCi.C(V-G,KDLC,.-i\-£G) 
0===========:========================== 

C  TO  EXECUTE  BLOCK  ’SCLC’ 

C  REfiD  CONCENTRATED  LOADS 

0================================ 

IMPLICIT  REhL*8  (m-K,u-2) 

COWON/COOR/NDIM,  ;W,  NEW,  NNUL^,  ^NiULL  (3! 
C0I««N/RE30/NEQ,NFILLR(3; 

C0W1CN/ES/M,  NR,  «P,  N1 ,  NfDUWy  (9) 

CQMMON/TRVL/KV  ( 16) ,  V  ( 1  A) ,  RDLINNV  !A99) ,  Nu-L 
DiiNENSION  VFG(*),KDLNC{»i,KN£0(») 

DATA  L16/16/ 

C - 

C - READ  DATA 

IF  (M.GE.O) WRITE (NP, 2000) 

2000  FORMAT!//'  CARDS  OF  NODAL  LOADS’//) 
IO=MINO(7,NDLN) 

iO  READiMljlOOO)  IG, (V(I) , 1=1, 10) 

1000  FORMAT! 15, TFIO.O) 

IF!NDLN.ST.7)  READim,1005)  (V(I),  1=8, NDLN) 

1005  FORMAT !5X,7F10.0) 

IF!M.GE.O)WRITE(MP,20!0)IS,  (V!I),  1=1, NDLN) 

2010  FORMAT!’  >)>))’,  I5,7£l2.5/ !’  >)):'>',5X,7E:2.5)) 
IF!IS.L£.0)  80  TO  60 
20  READIMl, 1010) (KV!I), 1=1, L16) 

1010  FORMAT! 1615) 

IF  !M.S£.0)WR1TE(MP, 20201  (W(I) ,  1=1,  lIS) 

2020  FORMAT!’  )))))’, 1615) 

C - DECODE  .nodal  DATA 

DO  50  IN=1,L16 
I1=KV!IN) 

IFIII.GT.NNT)  CAL-  £RRELR!6l,  II,  VmT,  1) 
IF!I1)10,10,30 
30  ID1=KDLNC(I1)+! 

ID2=KDLNCIi;+!) 

J=0 

DO  50  ID=ID1,ID2 
J=J+1 

lEI^KNEQlID) 

IF(IEQ)50,50,*0 
40  VFG(IEQ)=VFGIIEi)+V(J) 

50  CONTINUE 

GO  TO  20 
C - OUTPUT 

60  IF!M.GE.1)WRIT£1MP,2030) :VFS!I) , 1=1,  NEQ) 

2030  FORMAT!//’  TQTAl  LOAD  VECTOR' / (lOX, 1CE12. 5) ) 
RETURN 
END 
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■4'  '  ^ 


•  1.  J  I  «  ^ 


SUBSOFI.Nt  SD£LEX(f€, KLOCE, VCQSE, vai^NE, V^JEE, ^aE) 
C  READ  ELEJCNT  ?RCP£ST:ES  FRGM  .-ILE  me 


IMPLICIT  REAL*8(h-H,G-Z) 

COWQN/RSDT/IEL,  ITPE,  ITPE',  IGRE,  IDLE,  ICE,  IPRVE,  IPREE,  IN'EL,  \’LLL(£) 
DIMENSION  KLOCE(♦),VC:ORE(♦),VPRNE(«).VPREE(♦),H^;E(«; 


READ tm  lEL,  ITPE,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  I.VEL, 

1  (KLOCE(I), 1=1, IDLE), (VCORE(I), 1=1, ICE), 

2  (VPRNE(I), 1=1,  IPRNE),  (VOREEd), 1=1, IPREE), 

3  (kne:i),i=i,inel) 

RETURN 

END 


SUBROUTINE  BLSOLC 

:  TO  CALL  BLOCK  ’SOLC’ 

C  TO  READ  CONCENTRATED  LOADS 


implicit  REAL»a(A-H,0-Z) 

CHARACTER*4  TBL 
COMMON/RESO/NEO, Nf ILLR (2) 

Ca«MON/ES/M,  MR,  MP,  MI ,  iMDUMMY  (3) 

COWlON/LOC/LCORG,  LDLNC,  lNEQ,  LXX  (15) ,  LEG,  LDUW  (6) 

COMMON  VA(1) 

DATA  TBL/’FG  V 

C - : - 

IF(Ml.EQ.O)  Ml=«R 
WRITE (MP,2(»0)  M 

2000  FORMAT!//’  INPUT  OF  CONCENTRADED  LOADS  («=’ , 12, ’ )’ /’  ’, 
1  39(’=’)) 

IF(LrG.£Q.l)  CALL  ESPACEINEQ,  i,  "Bu,LFG) 

CALL  EXS0LC(VA(LFG),VA(LXNC1,VA(lNEQ)) 

RETURN 

END 
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L 

C: 


PRINT  DATA  DE-ININS  AN  ELEMENT 


i.'i 


a 


IMPLICIT  REAL*a(A-n,C-Z) 
CaWi/PRND/NPRN 


COWON/PREl/NGPE,  nPRE 

COiWW/RGDT/  ;El,  rPE,  r?E;,  igre,  idle,  ice,  iprne,  IPREE,  INEL,  NLLL IE; 
COKMON/ES/K,  NR,  MP,  MDiiMMY  ( IC ; 

DI>t^EION  KLCCE (♦) , VCORE ( »! , VPRNE (♦) , VPREE :♦) ,  XNE (*) 


IF(«.SE.O)  WRITE (MP, 2000)  lEL, ITPE, INEL, IDLE, IPRNE, IPREE, 
2000  FORWTdOX,' ELEMENT: ’,15,’  TYPE:’, 12,'  N.P.:’,I£,'  D.C.F. 

1  13,’  N.  PROP:', 13,’  EL.  PRO?:’, 13,’  GRCL?;’,I3) 
IF(M.SE.O)  WRITE («P, 2010)  (KN£(I),  1=1,  INEi.) 

2010  F0RMAT(15X,’C0NN£CT:vrY  !NE)’, 2015/ (32X, 2015)) 

IFIM.LT.l)  SO  TO  10 

WRITE («P, 2020)  (KLXE  ( I ) ,  1=1,  IDLE) 

2020  FORMAT (15X,’L0CALIZATN  (LOCE)’, 2015/ (32X, 2015)) 

WRITE (MP, 2030)  (VCOREd),  1=1,  ICE) 

2030  FORMAT ( 15X, ’ COORDINATES (CORE) ’ , 8E12. 5/ (52X, eEi2. 5) ) 
IF(NPRN.ST.O)  WRITE  (HP,  20A0)  (VPRNEd),  1=1,  IPRNE) 

2040  FQ1WAT(15X,’ NOD. PROP.  '''RNE)’,6El2.5/(3£X,eEl£.5)) 
IFdPREE.GT.O)  WRITE (MP, 2050)  (VPREEdi,  1=1,  IPRcE) 

2050  FQRMATd5X,’EL£M.  PROP.  (PREE)’,8£l2.5/(3£X,6El2.5i) 

10  RETU!«N 


END 
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SUBROUTIIC  WRELEM  (ME,  KLXE,  vCCSE,  VPRNE,  V3REE,  <N£) 

C  WRITE  ELEMENT  PROPERTIES  'ON  FILE  ME 
IMPLICIT  REAL*8(A-H,D-2) 

COWON/RGDT/IEL,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,NLL_;5) 
DIMENSION  KLOCE(*),VCOREU),VPR^.E(»),V?REE(*),RNE(») 

C - 

IPRNE1=IP'»E 
IFdPR)€l.£D.O)  IPRNE1=1 
IPREE1=IPREE 

IFdPREEl.EQ.O)  1PREE1=1 

WRITE(ME)  lEL,  ITPE,  IGRE,  IDLE,  ICE,  IPRNEl,  IPREEl,  INa, 

1  (KLOCEd),  1=1,  IDLE),  (VCOREd),  1=1,  ICE), 

2  (VPRNEd),  1=1.  IPRNEl),  (VPREEd),  1=1,  IPREEl), 

3  (KNEd),I=l,INEL) 

RETURN 

END 
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SIJB^QUTINE  X 


^L'’ ' ;  5-E|  VCCR3,  v  -RSo,  V'PREG,  *  '-zi  ■  'i,  'i  -R'.i,  v 


C  TO  GENERATE  E.EMENT  COORDINATES  AND  -RC*^ 

C  GLOBAL  ARRAYS 

C  (!G?£:  GRCu'P  ,NU*tBER  FOR  ELEXEMT  PROPERTIES) 


DIPLICIT  REAL*8(A-H.Q-Z) 

COWMON/CCOR/NDIM,  NNULL  (3) ,  FNL'LL  (3) 

COWON/PRND/NPRN 

CO«»W/PRB./NS?E,NPRE 

C0IW)N/RGDT/NUL(5),  ICE,  IPRNE,  IPREE,  INEL,  IDC.»«Y(S) 
DIMENSION  VC0R3 ( ♦ ) ,  VPRNG ! ♦ ) ,  VPREG (♦ ) ,  KNE ' »i ,  VCGRE ( *)•, 
1  VPRNE{»),VPRE£(*) 


[i 


t 


ILflRGE 

lNOF‘.OPTCflL.S 

SUBfiQU’’:N'E  LDCELD (KDLvC,  KNE,  <VE5,  KLCCE,  <-2; 

C  "Q  =^ORi»  the  ELEJ^EN'  .CEPLIZflTIGN  TfiBLE  (-QCE) 
C  fflV'D  UPDATE  COLU™  hEIoH^S  fl  3IVEN  ELE>!EN' 


im*8  FWJLL 

CQfWQN/COQR/NDIM,  NKT,  NiNuLL (2) , 

C0«WCN/R6DT/Nir(4) ,  !DLE,N3L1  (2),  IVEi.,  ISUfnVtS) 
DIffNSION  KDLNC (♦) , KNE 1 ») , KMEQ (♦) , KLOCE ;♦) , KLD ( ♦) 
DflTR  NDt.l^X/32000/ 


J 


80  IFIIEL^NE-NEl”)  CftLt  ESR£L'R{57,:EL’,MEL’-,1) 

c - OR  I  NT  BOND  HE:5'-''S 

:irfi=0 
IW3=0 
l;=NEQ+l 
DO  90  1=2,  !1 
j=-<ED(:) 

iF(j.3T.:rfl)iNfl=J 

90  i«c=:k;+j 

C=INO 
C=C/NEQ 
WRITE (^?, £030; 

2030  F0S«flT(/!5X,V»IEfl'N  :'EISMT=’,Fa.!,'  ,  15 

IF(«.GE.£)  WRITE i!^P, 2-040 ;KLD(I).  1=1,  ID 
20A0  FORMAT (//'  TABLE  OF  BAND  /'lO^X, 2015) ) 

C -  TRANSFORK  KLD  INTO  ADDRESSES  2'  Z2.ir\  TQP  TERK 

IFINSYM. EQ. 0)  NK£=<NDL£*{nDL£+1) ) /2 
IF(NSY«.EQ.l)  NKE=NDLEtNDLE 
KU)(1)=1 
DO  100  ID=2,I1 

100  KLD<ID)=KLD(ID-1)+KLD(ID) 

NKG=KLD(I1)-1 

IFIK.SLE)  WRITE«A,2050)  (KLD(ID), ID=1, ID 
2050  FORNAT(//’  TABLE  OF  ADDRESSES  OF  COLOKN  TO?  'ER*S 
1  (10X,20I6)) 

RETURN 

END 
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IF(IEL)  80,60.20 

C - NUMBER  OF  MODES  AMD  ADDITICNMA:.  CARDS  AS  REQLIRED 

20  IMELO 
11=1 
.2=110 

30  D0A0!M=It,I2 

IF(KNE(IN).EQ.O)  BO  '0  50 
IN£L=INEL+1 
40  CDN-^IMiE 
11=12-^1 
12=11+115 

READ(M;,lOOOt  (KNE(iN),!N=Il,I2) 

IFIK.BT.O)  i<R:TElMP,2010)  (Kf«(IN),  IN=I:,  !2) 

GO  TO  30 

C -  CHECKING 

50  IFdNEL.GT.MNEL)  CALL  ERREjR(51,  :mE-,**MEL,  1) 

IFIINCR.EQ.O)  !NCR=1 
IFIITOE.EQ.O;  ’■"’:E=NT:E 
IF(IGPE.GT.NGPE)  CALL  ERFE'JR(53,  .'GTE, \3-E,  ll 
IF(IGPE.EQ.O)  IGPE=1 

IFdGRE.GT.NGRE)  CALL  £RREUR<5A,  ISRE.NGRE,  1) 

C -  ELEMENT  GENERATION 

IF(IKN.EQ.O)  :GEN=1 
DO  70  IE=l,IG£N 

IF(IEL.ST.^ELT)  CALL  ERR£LR(55,  lEL.NSL',  1) 

C - GE)€RATE  KLOCE  and  UPDATE  KLD 

CAL.  LOC£LD(KDLNC,KN£,K^€Q,KuOCE,K>D) 

C - GE^ERATE  ELEMEN’  COORD ImA'-ES  AND  ?RC?ER'"I£S 

CALL  XTREJ ( IGPE,  VCCRG,  VPRN3, 02R£G,  -^NE,  VCO»£,  VPRv£,  VPREE) 

C -  CHECK  ELEMENT  NODE  NUMBERS  AND  D.O.F. 

IPG0=0 

ICCDE=l 

CALL  ELE?1B(VC0RE,  VPRNE, VPREE, VD'-E,  VKE,  VF£j 
IF(INEL.EQ.  INELO.AND.IDLE.EQ.  IDLEO)  SO  ”0  55 
WRITE(MP,2020)  IE-, INEL, INELO, ID.E, IDLED 
2020  FORMAT!’  ♦*  ELEMENT’ , 15, ’  INCONSISTENT’ /5X, ’ INEL=’ , I*, ’  I 
1/  5X. ’ IDL£=’ ,  15, ’  IDi-£0=',!5) 

C - UPDATE  TOTAL  NUMBER  OF  INTEGRATION  POIN'S 

55  NPG=NP6+IPG0 

C - STORE  ON  ELEMENT  FILE 

CALL  WRELEMdC,  KlCCE,  VCORE,  VPRNE, VPREE, KNt) 

IELT=IELT+l 

C - PRINT  ELEMENT  CHARAC'ERIS’^ICS 

CALL  PRELEM(KLX£, 'VCORE, VPRNE, VPREE, KNE) 

C - NEXT  ELE’’ENT  TO  BE  G-ENc3R’'ED  OR  READ 

DO  60  IN=l,iNEL 
60  kn£(:n)=kne(;n)+!‘CR 

IF(IDtF.GT.NDLE)  NDLE=IDLE 
70  IEL=I£L+1 

GO  TO  10 

C - CHECK  IF  TOTAL  NUMBER  OF  E^E-EN’’  IS  EXCEEDED 


5  15X, 'INDEX  FOR  NCN  SYMME’-'i’C  (\SV'')=’ ,  15/ 

6  15X,’ INDEX  CQS  identical  ELEcIEnTS  (vICEN'':^',  15/) 

IF(LLD.EQ.l)  CALL  ESPACE(NEQ+1,0,TPl!;j,.^D; 

IFf-.LCCE.EQ.  1)  CAL.  FSP«CE(VN£LWDLN,0,TBL(E),u-OCE) 

IF(LCORE.EQ.l)  CALL  ESPACEfNN'ELtNDIT,  l,Ta.(3),u::!FE: 

IFILNE.EQ.l)  CALL  ESPACE(fe«£L,0,TBL(4i,LNE) 
IFINPRN.GT.O.AND.LPRNE.EQ.  I)  C«.L  ES?AC£(WEl»\?RN,  I,  TBLfSi ,  .P-NE) 
IF(N?RE.3T.0.AND.L?R£E.E3.1)  CALi.  Ed?ACE(NPRE,  1, .PREE) 

CALl  EXELEM (VP (LCCRG) ,  VA (LXNC) ,  VA (.PRNG) , VA (LPREO : ,  VA ( lLOCE:  , 

1  VA(LCOR£) ,  VA(LNE) ,  VA(LPR\£) ,  VPC.PREE! ,  VALJtG) ,  VA(..Di ) 

WRITE  (MP,  £010)  NKG,NPG 

2010  FORMAT (15X,’ LENGTH  OF  A  TRIANGLE  IN  KG  (NKG)=’ ,  ID/ 

I  15X, ’ NUMBER  OF  INTEGRATION  POINTS  (\PGi=- , I : > ; 

RETURN 

END 


SUBROUTINE  £XElEM(VCQR3,  KDL.NC, VPSNQ,  VPREG,  K.CCE,  vCORE,  •'AE,  VPRNE, 

1  VPREE,KNEQ,KLD) 

C  TO  EXECUTE  BLOCK  'ELEM' 

C  iEAD  ELEMENTS  DATA 

IMPLICIT  REAL*fl(A-H,0-I) 

COIWIN/COQR/NDIM,  NNT,  NflULL  (2) ,  FVULu  (3) 

COMMON/ PRND/NPRN 
CO»(ON/PR£L/NGPE,NPR£ 

COMMON/ELEM/NELT, SNEL, NTPE, NGRE, ME, NIDLN’. NPG 
COMMOl/ASSE/NSYM,  NKG,  ,NKE,  NDLE 

COMMOl/RGDT/ia.,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  'PRNE,  IPREE,  INEw,  IDES,  IPS 
1  ,ICODE,IOLEO,INaO,IPSO 

C0m0N/RES0/N£Q,NFIi.LR(2) 

COMMON/ES/M,  MR,  MP,  1 1 ,  ifE,  .vDLMXY  ( 8 ) 

DI  l€NS ION  VCORG  ( ♦ ) ,  KDLNC  ( » ) ,  VPRNG  ( ♦  i ,  VPREG  ( ♦ ) ,  -L.CCE  ( ♦  j ,  VC0F£  ( ♦ ) , 

1  KNE(»),VPRN£(*),V?REE(»»,-AE3(»),KLD(*) 

DATA  110/10/, 115/15/ 

C -  INITIALIZE 

OPEN  (M2,  FILE='  <*002.  DAT’ ,  STATUS^’  NEW ,  FCRM=’  UNFCRMA’~ED’ ) 

NDLE=0 
iaT=o 
NPG=0 
REWIND  M2 

IF(M.GT,0}  WRITE  (MP,  2000) 

2000  FORMAT!//’  aEl«NTS  CARDS’/) 

C - READ  AN  E.EMENT  CARD 

10  READ(M1,1000)  IEl,  IGEN,  INCR,  r?E,  IGPE,  IGRE,  (KNE(IN),  IN=1,  IlC) 

1000  F0RMAT(16I5) 

IF(M.GT.O)  write  (MP,  2010)  lEL,  IGEN,  IVOR,  I'pc,  IGPE,  IGRE, 

1  (KNE(IN),1N=;,I10) 

2010  FORMAT!’  )))))’, 1615) 


C======r  =  =  -:=  =  =  =  r=r-  =  - 

•;  "3  CALL  BIX-  'E-E^’ 

;  X  5EAD  E'.E*"E\’  WA 


iNXicr  ?£AL»8ift-.:-;i 
C:-tSSflC*E^*'« 

X!WQN/XO^  AC;'',  'A'.  ■«[-%,  2- 

£0«wGN/P8nD. 

XW'ON/PSE./w^,  '.-^- 

COWON/EL£*.A£.*,  V.£.,  '.’PE,  \GSE,rE.  ^:2E^^  \P3 
XI*I0N/0SS£/V£»'*,  V.G,  <  ;„v(£. 

cowoN/^ESQ.*^:.  V ,1. 

XiVON/ES/1,  “5,  ’"D:_f~r  3  ■ 

xmjs/iX/iCDK2,  u2L\c,  l\£:,  -d;  -  >'3,  .p^eg.  -G,  ..;:£.  -I'J'E.  .'»e. 

1  .08NE,^?SEE,lXE, -K£,.££,.:'.3£,-:'3:,  ---31,  --3, .  :3,.:..'''r  i, 

C!»W(  VAC) 

DI^NSIDn  iBL  .6) ,  !n (6) 

r 

>«■  TAIS  IS  CC.’'l«eN:ED  X'  because  C?  ^-E  "S  cC'-;- 

C+++  ILEB  Bug  SAID-  ^Q’^  IM’IACIZE  SlARoE  2RP--o 

THIS  ARRAY  :s  (YCiJ  initialized  BY  A  CAl.  '0  INItb^  ^ICH 

ejcs’s  soiaY  x  initialize  m£  names. 

c 

:  DAPA  TBL/’-D  ’ . '  .OCE’ , ’XRE’ , '  NE  ’ ,  ’  ?RNE’ ,  ’  RREE’ / 

c 

C  HERE  IS  'At  CAU  TO  X'  AROUND  T-^E  CCYAILER  BuG  • 

r 

call  INITBL(TBL,'£L£M’) 

C 

C+++  all  THIS  WAS  SIXPLY  *0  GET  AROUND  THE  MICRGSOE’ 

C+++  compiler  bug 

C 

IFIKl.EQ.O)  M1=XR 
IF(M2.£Q.O)  »I2=ME 
READIM^IOOCIIN 
1000  FORMAT (615) 

IF(IN(l).GT.O)  NELT=IN(1) 

IF(IN(2).GT,0)  NNEL=:n(2) 

IF(IN(3).GT,0)  NTPE=IN(3: 

IF(IN(A).GT.O)  NGRE=iN(i) 

IF(IN(5).NE.0)  NSVM=; 

IF(1N(6).N£.0)  NIDENT=; 

WRITE (MP, 2000)  M,  N£LT,  NN'E., NTPE, NGRE, NSYM, NIDENT 
2000  FORMAT!//’  I)i(PUT  OF  ELErEN’S  (>•=’,;.?,•)’/'  ',2;;i(’=')/ 


t 

15X,’MAX.  NUMBER  OF  ELEMENT'S 

',Na’)=’,I5/ 

2 

15X,’)WX.  NUMBER  OF  NODES  PER  ELE-EV 

(NNE'J^'.IS/ 

3 

15X,’ DEFAULT  ELEMENT  'YPE 

(N"E)-’,:S,- 

4 

15X  ’NUMBER  OF  GROLPS  X  E'.EMEN'S 

(NGRE) =’,15/ 
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SUBRJIFISE  EX3?:.(V2^50,VI: 

C  TO  EXECUTE  BIKK  'PREL' 

C  READ  ELEMEN'T  PROPERTIES 

IMPLICIT  REAL*8(A-H,G-Z) 

CO»'ON/PREL/NGPE,NPRE 
CQMMCN/ES/M, MR, MP, Ml, MDUMMY (9! 

DIME^YSIQN  V?RES(*),V1(») 

,r _ 

IFIM.SE.O)  WRITE  WP,  2000) 

2000  FORMAT (//’  CARDS  OF  ELEMENT  propsR'IES’/) 

C -  READ  A  GRGUO 

I1=MIN0(7,N'PRE) 

J=1 

10  READ(M1,1000)  IGPE,  (VI (I),  1=1, ID 

1000  FQR«AT(I5,7F10.0) 

IFIM.GE.O)  WRITEi*P,20!0)  IQPE,  (VI C) ,  1=1,  ID 
2010  FORMAT ('  )))))', 15, 7E12. 5) 

IFdSPE.’-E.O)  80  TO  40 

IFdGPE.GT.NSPE)  CALL  ERR£UR(4;,  :G''E,\-3P£,  D 

IF(NPRE.LE.7)  GO  ’0  20 

C - READ  THE  PROPERTIES 

R£AD(Ml,1010i  (VKI),;=8,\PRE) 

1010  FORMAT (5X,7F10.0) 

IFIM.GE.O)  WR:TE(mP.2020)  (VI  C),  I=8,\PR£) 
2020  FORMAT!’  )))))', 5X.7E12.5) 

20  DO  30  1=1,  NPRE 
VPREG(J)=V;(:) 

30  J=J+1 

GO  TO  10 
40  RETURN 
END 
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SUBROJIINE  BLPREL 

C  TO  CALL  BLOCK  ’ PREL* 

C  TO  READ  ELE?CNT  PRCPEriES 

IMPLICIT  REAL*3(A-rl.a-2) 

CHARACT£R*A  'EBL 
COW«N/PREL/'NGPE,  KPRE 
CCIWON/ES/M,  .MR,  Ji?,  Ml,  .MDCWiB) 

CCWN/LOC/LKK  (5) ,  LPRE3,  ;.Dl'»Y  ( 13) 

CO>(MON/TRVL/  IN  (2) ,  RDU.MMy  (520) ,  \LLL 
COMMON  VAC) 

DIICNSION  T3L(2) 

C 

C+++  THIS  IS  commenced  COT  BECAOSE  C-  T:-t£  -S  'CrRAN  CC.rP- 
C+++  ILER  bug  SHICH  WIL-  ^^:T  initialize  scarce  CSRAV3 
C+^^  this  array  is  NCi.  I.NITIALIZEI)  By  A  CA.L  IM’Bl. 

C+++  EKISTS  SOLELY  TO  INITIALIZE  TAB.E  NAMES, 

C 

C  DATA  TBL/' PREG’ , ’ V  ' / 

c 

C  HERE  IS  THE  call  TO  GET  AROUND  *HE  COMPILER  BuG 

C 

CALL  INITSL(TB).,’?R£L’) 

C 

C+++  ALl  THIS  WAS  SIMPLY  TO  SET  AROUND  "HE  *ICROSCrT 
C+++  COMPILER  BUG 

C 

IF(M1.EQ.0)  Ml=MiR 

r -  READ  NUMBER  OF  GROUPS  AND  PROPERTIES  ?ER  GRObP 

READ (Ml, 1000)  IN 
1000  FORMAT (215) 

IF(IN(i).GT.O)  NG?E=IN(1) 

IF(IN(2).GT.O)  nPRE=IN(2) 

WRITE (MP,  2000)  M,NGPE,NPSE 

2000  rORMAK//’  INPU’  C-  E-EMENT  PROPERTIES  (M=M2,’)’/’ 

1  35(’=')/15X, 'NUMBER  OF  GRCUPS  OF  PROPERTIES  (NGPE)==',  15/ 

2  15X,’ NUMBER  OF  PROPERTIES  PER  GROUP  (NPR£:=',I5) 
IF(LPREG.EQ.  1)  CALL  £SPACE(NG?E»N?RE,  m^BLIDiLPRES) 

CALL  ESPACEtNPRE.  1,TBl(2),lD 

CALL  EXPREL(VA(LPREG),yA(LD) 

CAu.  VIDE(L1,1,T6L(£)) 

RETURN 

END 
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S.i^Ol’INc  SL-rv.*! 


'3  CfiL-  3;.3CK 

hSSE'^BlE  S3-Vc  P;  _!''iEAR  “^GS-E^  IS  GuEE 


I':--LI3"  ^EA^+OiA-n,  Q-Z) 

3EASACTEE+A 

3E)^G\/C33E/'.D' 'iV,  NDL!^,  SDlT,  "N-jL_\3) 

CCr';3^/E-E>^/^L;L-  i4) ,  ^E,  r\3LL  (E) 

ZEy'CK/ASSE/,4SYi'^,  NK5,  :VKE,  SDLE 
ZCI'^YGN'/  EESu/VE'E,  N.EES.  ^RE3 

ES/'^,  >*4,  '<3,  VI! ,  vi,  ;.I3,  mDUMMY i7) 

EE'^'’3’E  L3C/w30R3,  LDL'YC,  LNEQ,  _DIKP,  LPRNG,  LPSEG.  luD,  LLGCE.  LL3SE.  l\E. 
1  -'^''‘E,  _  jREE,  lDlE,  lFE,  lKBSilKoD,  ■.KGI,  '.FG,  lSES,  _DL6,  L.Dbf^i’fV  i4i 

"YYiON  VAC) 

DIYENSiCN  *BL!8) 


'-■IS  IS  CQ?<«ENTED  OU'  BECAUSE  GF  r-F  -ns  FQR'i<Af<  COMP¬ 
ILER  BUG  wrlCH  WILL  NOT  IMTIPLIZE  $lARG£  ARRAYS 
THIS  ARSAr  IS  ^Qw  IN'ITIALIZED  BY  A  CALi.  *0  I^ITBl  whICA 
Er.STS  solely  to  INriALIZE  'ABLE  NAMES. 

DA'A  'B./’KGS  ’.'K3C  ',’KGI  ’,’F3  ’.’KE  ’,’FE  ’,>RES  ’/D^.E  */ 

AERE  IS  'HE  CA'.^  '0  GET  AROUND  THE  CO-MPILER  BUG 

CA^.  IMTil  CEL. 'LINK') 

AL_  'HIS  HAS  SIKPlY  TO  GET  AROUND  THt  MICROSOFT 
'COMPILER  BU'3 


IF(MI,£Q.O)  Ml^MR 
I-(K2,EQ.O)  ME=KE 
IF(M3.EQ.O)  M3=KRE5 
READIMCIOOO)  IN 

1000  "CRKATCIO 

CilN.NE.O)  SRES=1 
URI'E  IMP,  2000)  11,NRES 

2000  -i:R'‘AT!//’  assembling  AND  LINEAR  SO'..UPION  (M=' ,  12. ' )' /’  '.30!’=' 
!  ISX,’  INDEX  FOR  RESIDUA..  COMPiJTATION  (NRES)=’.I5) 
I-!LY'3S.£Q.  1)  CALL  ESPACEINKG.  I.TBLC/.lKGS) 

CC-KGD.EQ.l)  CALL  ESPACEINEQ,  1,TBL(£).LHGD) 

I  -  (NSYK.  E  j.  1,  AND.  lKGI.  EO. ; )  CAL'.  ESPACEfNKG.  I,  SLlSj.LKGI) 
IF'L,-G.E0.:)  call  ESPACEiN£'3.1,T3L(4)..FG) 
i-i.KE.EQ.  U  E5PACE’'vKE,  1,:BL(5).'.K£) 

IFi.t^E.SQ.  1)  :P.l  ESPCCEINDLE,  l,T&t(6).LFE) 

Ci-RES.EO.  ;■  CA'.l  ESAACEindlp.  1.'BL(7)._.RES) 

"(li.e.e:.;!  ;pl-  E5ppc£(ndl£.;.'bl(8).lDle) 

CAiL.  E  C ; N» '  VP  ..D)  ,  VA  '’.DI vp I ,  '/'A (LLOCE)  ,  VA (lCGRE)  .  VA (lPRNE)  . 
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vC  j  I  v'C  (_N;E) .  vfi  iuKE) ,  Vfii^FE) ,  vh  (lF 33) .  VP  (LK3D) . 
V  - , .  ‘,3 '  J ,  V  ft ;  l”3  ) ,  vfi  ( -33  ^3  i ,  Vft  ■!  _DlN'3  j  ,  yfi  ( LNEi ) , 

;  VQ (uiES), Vft (IDLE) ) 

s\: 


3- r’CL*!''-!  E.X-I\"  vD;?*'',  X-3'3E,  V'CCPE,  v'P3\E,  V'?3-E.  3'(£,  VKE,  V--, 

VftbS.  vMGD,  VKGI.  V)‘3.  V'CGFG, KD'_NC.  KNEG.  VhES.  VOLE) 


"G  EXECJ’E  BLOCK  ’LIN!” 

fiSSE'E-E  S\'D  SCLVE  ft  -IVEA3  IV  CuSE 


RE;ft^*3;H— ,  u-Z) 

;:’!>’C\/ft3SE/N£Y'',  '.KG,  NKE,  ?iDLE 
^E3G/NE3,  ^3E£,  i<3E3 

IG''!'):'.  .'ES/'I,  >!E, )"?,  Kl,  Kc.  .''DLif'i'y  (7) 

3.'  '^'.EiE'*  ;♦? ,  V3I?|P(*j ,.'',LGC£(*I ,  VCG3E(*) ,  vPftVE'!*) ,  v-'3EEf»’.i , 

;  KNE  .  V'rS;^!  ♦ ) .  VFE  ( ♦ ) ,  WG3  ( ♦ ) ,  VK3D  ( ♦ ) ,  VKG I  ( ♦ ) ,  VFG ; « ) ,  VCGRG  ( * ) . 
3  ''D-'-C  ,  k\e3  !♦) ,  V3ES  i*) ,  VDLE(*) 

OPEN  ;K3,  -  :-E=’  $J003.  Dft7’ ,  3TftTL3=’  N£«’ ,  FOW=’  u\FCRI«.ftrEG’ ) 

REVtINu  K3 

-  ASSEYElE  kg 

-  SAVE  'jN''IODIr  .:D  viCTDR  ”3  (By  B.  C.)  JN  F]lE  M3 

LSITEirG)  (VF3(:).>:,\£Q) 

"(fl.SE.B)  «RIT:(i'1P,E(;)00)  (VF3(I),:=1,!€Q) 

.000  F35yfl7(/1  3;.cBflL  LOAD  VEG’CR  ^iON  MODIFIED  BY  B.C.  (FG)’ 
1/(1X,'.0E1B,5I') 

: -  ftSSE-'-BLE  KG,  MCDI-Y  FG  FOR  B.C.  PIVD  SAVE  T.iE:i 

EALl  ASKG (KlD,  VDIMP, KLCCE,  VCCRE,  VPRNE,  vPREE,  KNE. VKE. VFE, VKG; 

V'KGC,  y.xGI,  VFG,  VDlE,  VRES) 

*RrE(M3)  (VFG(I1,I=1,NEQ) 

/.R i'E ;  *Z)  i V.KG3 (!),>',  NKG) .  (VKSD(  I ) ,  >1,  .VEQ) 

IF‘:nSV».EQ.  1)  PSITE(M3)  (W3I  (I).  I=i.NKG) 

] -  PRL'i’'  kG  OXiD  "G 

30  TO  20 

/(7'.'E(X'P,2005)  (VKGS(i),I=l,YK3) 

.oo;  “CRMftT!/'  global  MP'RIX  (KG)'/’  UPPER  TRIANGLE’ / 

!  (1X,1CE12. 5)) 

ARi'E (YP, 2010)  (VKGDI I ) , 1=1, NEQ) 

'C:0  -3F'*0"0  D;ft6uNAL’/(U,10E12.5)) 

IFfNSYM.EQ.l)  WRrEiMP.2020)  (VKGI  (I),  I=1,NKG) 

020  -ORMft'C  lONER  TRIANGLE’ /<  IX,  IOEIl.  5) ) 

»R!^(MP,2030)  (0=30,1  =  1, NEQ) 
j.30  =ORNP=(/’  G^GBft-  load  VECTOR  MODIFIED  By  "ftt  B.C.  iFG)’ 

1  /(IX.  iOE:2,5)) 


5  j'_  iVKSS,  V'.GDi  vXijI  ,  V-3,  Ki.D,  Stu.  I'.-,  1<  1,  NbYr,  -iiz+j) 
Ir  ( VSYM,  Nc.  1 /'  wRI"(''P,  i;035)  ENERo 

-QR^P' i ISx,  ’  E\ERSy  lE'JERG)  =’ ,  lElE. 5) 

if(m.lt.e)  ea  ‘o  lo 

WRITE iVYGSil),  1=1,  W3) 

-CR.»fiT(/'  ■RlfiN&iJLfiRIZED  ''fi'R’X  vKS)’/'  UP^ER  ‘RlftNG 
;  (lMCi:E.5)) 

»RI'E  '*P,  SOlO)  i  vKGDd ) .  1  =  1,  NEu) 

I' isSyy.  EQ.  1)  /iRITE 'yp.  EOEi-i)  (vKG;  II).  I=l,-^'\o) 

—  PIVETE  Er  KG  PND  DETER'^iNfiNT 
EfllL  PRPv'Giy'KGD) 

—  EvPi.ufl’E  nnd  ^Ri‘r  resiD'jPl  vector  K.j  -  ' 

"(nREG.EQ.  .)  CA1.L  3RR£SD(VKGS.VHG0.VKG!.VF8,KLD.VRE5) 

—  PSIN"  >E  GC.u-^IQN 
WRr£!’'2,G050) 

FiR'^A'd//’  EC^l''I0N’//) 

Efi^  ^RSQLiKDLNC.VCQRGiVDIMP.KNES.VrG) 

—  E’y'O-.UATE  P'ND  PRINT  GRADIENTS  (STRESSES) 

C!^„l  fiSGRSD  (KID,  'VDiyP,  KluCE,  'i/CGRE,  VPRNE,  VPREE,  KNE.  VKE,  v 
1  vkgd.vkg:,vfg,vdle,vres) 

-  EVPiOfiTE  AND  PRINT  EQUILIBRIUM  RESIDUAL  VECTOR 


- READ  ViCTGR  I'G  AND  CHANGE  SiGiN 

REWIND  MS 

READ (MS)  (VR£B(I),I=1,NEQ) 

DC  40  1=1, NE3 
VR£3(!)=-VRE5<I) 

---  ASSEMBLE  THE  RESIDUALS 

CAlL  ASRESDd,  1,  KlD,  VDl’^P, KLC'CE,  VCORE,  V’PRNi,  vPRE;,  aNi, V 
1  VKGS. VKGD, VKGI, VFG, VDLE,  VRES. VRES (NES+i ! ) 

—  PR'N'  THE  RESIDUALS 
wRrE!MP,E060) 

-CR‘'A*(//’  EQUILIBRIUM  RESIDUffi.S  AND  REACTIONS’//) 

CPLl  PRSGL (KDLNC, VCORG, VRES (N£Q*1 ) . KNEQ.  VRES) 


5jcRL'_'^rVE  P.3 '.'3  ,  '^'w  l  v'-jUrt-,  V>^R-Sc.,  Vr  V--,  K'Si,  V.'^.w,  vz, 

-  VKjS,  v'Kjl,  vK3I,  VF j,  vDLz.  vRES) 


G  PSSE:^B.£  G-GPfiL  ITflTRIX  K3  (ELEI^EN-!-  '^UNnCN  3) 
BKIivo  iN'j  .PCCGGMT  £i-  NGN  ZESG  “RESCRIBEG  D<0. F. 


I)'Pi.ICiT  REriL*^!^-":, -~2) 

GGXirGN/CONG/NCLT,  NGL2,  NGLNZ 

GGrMCN/E.E)!/  *.E-',  NNE_,  NTPE,  NGSE,  ?1E.  NIDENT.  ?!NljL_ 

GG^:*CN/flSSE/NSY'',  YF’LLR  (2) 

;gy>'0n/5egc/\eg,nf2u;.R(£) 

.£.''.''L'./R3-T/Iz_,  I  ?E,  I'PEl,  IGRc,  IDzE,  ICE,  IPRSz,  IPREE,  INrz,  ;z-j,  .^3 
1  , ICED. NELL (2) 

CCYvr  ^  .YD'J.W  iS) 

D I  YEN'S  I GN  YLD  ( ♦ ) ,  V'D  I YP  ( ♦ ) ,  'F.LGCE  ( ♦ ) ,  VCCRE !  ♦) ,  'v'PRNE  ( ♦ ) .  V PREE  ( ♦) . 

I  YN'E  (♦) ,  Viz  (♦) ,  V,"E  (♦) ,  VKGS  !♦),  ilK3D(*) ,  v'RGi  (♦) ,  Y-G  (♦) ,  'v^DLz  i'*) , 

£  'VRES!*),HE3(;) 


C -  RBJIND  ELEMENT  FILE  (MS) 

REiilND  Y£ 

: -  .CCP  OVER  THE  ELEMENTS 

DO  30  IE=I,NE'.T 

C -  READ  fiNI  ELE.YENT  ON  FILE  N2 

CPl.  RDE.EH ( YE,  KLXc,  VCGRE,  VPRNE,  VPREE,  KNE) 

C -  SHIP  CGi>!P!JTfl’ION  IF  IDENTICPL  ELEMENTS  ENCQLN'ERED 

IF(N!DENT.E5.  l.ftND.  lE.GT.  I)  30  TO  EO 

C -  EVALUATE  INTERPCLA'^ION  FUNCTIONS  IF  REQUIRED 

I-dTPE.EQ.ITPEl)  60  TO  10 
IC0D=2 

'Ji-  EuE.YLB (VCGRE,  V'PRNE.  VPREE, VDLE, VKE.  VFE') 

G -  -ORfii  E'lEYE'nT  '"A’RIX 

:C  ;C0D=2 

:a:_  ELE.’^LB  ( VCGRE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE) 

C -  PRINT  Ei.EYENT  YATRIX 

r(r,.:,2)  go  to  eo 

IF (NSYY. EQ. 0)  :K£=IDLE*i IDLE*! ) /E 
(nSY'". £3. 1 )  !KE=IDlE»IDLz 
WfiI’E(MP,E000)  lEL, (VKE(I),I=!,iKE) 

-CRYA'(/’  '•A'RIX  (.KE)  ,  ELEMENT:’,  I5/(10X,  lOElE.  5) ) 

- -  y03jcY  fG  FOR  NON  ZERO  PRESCRIBED  D.O.F, 

iJ  IF(NCLN2.NE,0;  CALL  YODFG ( IDLE,  NSY«,KlOCE,VDI,YP,  VKE,  vFG) 

C -  ASSE^'BLE 

call  A3SE-  (1,0,  IDLE,  NSW,  KlOCE,  KLD,  VKE,  VFE,  VKGS,  'VKGD,  VK5I,  V“5i 
30  ITPE1=IT?E 

RETURN 
END 
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c 


1 


P3GSSD '  <LD,  Vu ’  '3,  'LuCE,  vCQEE,  V  V53i-,  -Wt,  v'KE.  v-- , 

1  ^KSS,  VKGD, '/■'.GI.  '/"G,  VD'_c.  VEES) 

*:  EVPu-fi’E  AND  PRINT  GRADIENTS  (STRESSES)  AT  Ei.EKENT  S.o. 

(ElE^ENT  -ENCTIGN  Si 

ITEGIDIT  REAL»S(A-S.C-Z) 

CCT'^CN/E.ET/NElT,  N\E^.  nt?S,  ngRE.  ^E,  NI DENT.  >'Ni,LL 
CGT'^ONVASSE/NSY!*,  rFILLRfj) 

DCYTCN/RESQ/NEu,  NFI.LRiE') 

DGtYCn.'RGDt/IEl,  rPE,  rPEl,  IGSE,  IDLE,  ICE,  IPRNE,  lAREE,  INEi.,  IDEG,  IPG 
1  ,I;CD,N'u'LL(3) 

CC''‘^\/ES/?1,  r.R.  MP,  .’ll,  TE,  ’IDEM, NY  (6) 

DIl’iENSIGN  KLD(*),VDIMP(*),KL0CE(*),VCDRE(*),VPRNE1*),VPREE'*), 

1  KNE  i*) , vYE (♦) , vEE (* ) ,  vXGS (*) ,  VKSD(*) ,  VKGI (*) ,  V“G(*) ,  YD.E (♦) , 

2  VP:ES(*) 


'^Ov,ri\E  sgSESDC’ESD.  igESC.HJ,  VDi!'P,XL‘iC5,VC: 
vXE,  'vf  E.  VKG3.  VKGD.  VKGI,  VFG,  VDLE.  VSEG.  VFEAC) 


C  fiSSEirBLE  INTERNAL  RESIDuALS  IN  VRES  (IF  IRESD  .EQ.l) 
iND  EXTERNAL  REACTIENS  IN  VREAC  (IF  IREAC.EQ.l) 


A'LiC"  REHL»d(A — ;,u-Z) 

'’'EN/ELEN/NEl',  NNEl,  N’PE,  NGRE,  *E,  NIDENT,  “NULL 
?‘!^:.';/LSSE/'tGV''.'':-I-^R(3( 

'^TCN/REEC/NEQ.NF'  wRIE; 


,i:0C,\LLL(3) 

:3''"':s/EE/!^,  TR.  “P,  ’ll,  ’'2,  ?*DLi.NMy(8) 

D I  I'ENS : CN  RIG  ( ♦ ) ,  VD  i “A  ( ♦ ) ,  KLQCE  ( ♦ ) ,  '/CORE  ( ♦ ) ,  VPRNE  ( ♦) ,  'PREE  i  ♦) 
KNE  ( ♦  1 ,  VKE  (♦) ,  VFE  ( *) ,  VAbSi.*) ,  '»'KGD  (*) .  vRGI  (♦) ,  V^G  (♦) .  '/'Di.E  ( ♦) 
VRES(t),VREAC(«i 


- —  REWIND  ElEITEN’  file  (NE) 

REWIND  “2 

-  LOOP  OVER  'HE  E;.E“EN'S 

DO  SO  IE^1,NE-^ 

-  READ  AN  ELE“£NT  ON  FILE  K2 

CAlL  RDFLE'’(N2,  KLOCS,  VCQRE,  VPRNE,  VPREE,  KNE) 

- —  EVALUATE  INTERPOLATION  FUNCTION  IF  REQUIRED 
I-irPE.EQ.I’PEl)  GO  TO  10 
IC3D=£ 

CP„  ELEMIB  ( 'VCCRE,  VPRNE,  VPREE,  VDLE,  VKE,  V=E) 

-  find  E.EMENT  D.O.F. 

CAl.  D.E'.I  (XLCCE,  VFG,  VO  IN?,  VDLE) 

- E'/ALlA'E  ELEMENT  REACTIONS 

ICCD=6 

:Aw.  ElEM-E  ( VCORE,  VPRNE,  VPREE,  VD'_E,  'UHE,  V!^E) 

-  PRINT  ELETEN'^  REACTIONS 

I'(M.ijE.2)  «RITE (MP, 2000)  IE-,  (VFE(I),  1=1,  IDLE) 

FORMAT!/’  REACTIONS  (FE)  ,  ELEMENT:’ , 15/ (lOX, 10Ei2, 5) ) 
I-dRESD.NE.  1)  GO  MO  20 

- ASSE“.E!LE  INTERNAL  RESIDUALS 

CA'-.  AS5El.(0, 1,  IDLE, NSYM,KLCCE,KLD, VKE, VME,V.XGS,  VKGD,  VKGI, VRES) 
IM(IREAC.NE.  1)  GO  ’■Q  60 

- ASS£’'BLE  external  REACTIONS 

MODIFY  TERMS  IN  KLOCE  SUCH  THAT  PRESCRIBED  D.O.F.  ARE  THE  ONlY 
ASSEMBLED  ONES 
DO  50  :D=1.IDL£ 

(KLOCE (ID))  30.50,*0 

kloce(:d;=-k,loce!ID) 

GO  TO  50 

Ki.QCE(ID)=0 

CON'IVJE 

'DAuL  ASSEL (0, 1 ,  IDLE.  ,NSY“.  K.CCE,  K  J;,  VKE,  VFE.  VKG3,  VKGD,  VKGI .  VREAC) 
ITPE!=IT?E 

RETURN 


ti 


m 


5'-r'^Gj'^I\E  I'b,  IDlc., N3Y^,  ■^uL'Cz-.  "'w.!;,  V.-'::, v'--, VK'jS, 


i  VKSD.  v'K-:- 

I.VES) 

r 

7C  flSSSMBL 

£  SN  ELEVEN'  .^A^PIX  AND/OR  VEG’GR 

Z 

(.IflTRIX  SWf-ETRICAL  G3  NG") 

L 

INPUT 

u 

I  "(S 

IF  I/G.EQ.  1  ASSEMBLE  ElETEX’  '(A’RIX  xE 

‘w 

I-S 

IF  IFO.EQ.  1  ASSEI'BLE  ELEMENT  VEGTOR  FE 

IDLE 

Element  NUirBER  gf  d.g.^ 

NSV^ 

0=SYM!»tETRIC  PROBLEM,  l=UNSYMI>i£TRIC  PROBLEM 

2 

■-(.CCE 

ELEMENT  LOC.Af.IZATlQN  VECTOR 

KLD 

cumulative  column  heights  cf  kg 

■v(E 

KE  (^jLl  uP^Eix  bV 

'I 

DESCENDING  COLUMNS) 

V'E 

ELE'^E.NT  vector  FE 

n 

U 

OL’PUT 

■ 

V*^'jS, 

VKGD,  vKGi  GLQBhl  (SKYLINES) 

L 

(SYMMETRIC  OR  NOT) 

c==== 

vtg 

G;.0BA.  load  VECTOR 

EAl*o(A~H,0“Z) 

D;>€NS:GN 

KlGCE (♦) , KLD(*) . VKE(») , VFE(*) , VK6S<*' . VKGD(*) , 

1  VKGI(*),VFG(*) 


'''ODra ( IDLE.  'iSV"*!.  KLQCE,  VDIMO,  VKa,  V^St 

■:  TO  WJDI.-Y  VECTOR  F3  *0  ’ARE  INTO  ACCOUNT  OF  PRESCRIBED  MON  ZERO 

C  D.O.F.  FOR  A  GIVEN  ELEMENT 
C  INPUT 

C  IDLE  ELEMENT  NLi|i!B£R  OF  D.O.F. 

C  N3YM  0=3YR,''E*SIC  PRCB.EN.  1=NCN  SYHKETRIC  PROBLEM 

:  RlOCE  E-ENENT  ..CCA..IZATI0N  vector 

C  VDIM?  VALUES  0=^  prescribed  D.O.F. 

;  VLE  E.EMENT  matrix  iFULi  OR  UPPER  TRIANSlE 

C  BY  DESCENDING  CCLuNNS) 

:  CLTPuT 

C  VFG  GLOBAL  -DAD  VECTOR 


IMPLICi'  REALtS(A-ri,  Q-Z) 

DIMENSION  KLOCE(*),VDIMP(*),VKE(*;,VFG(t> 
DATA  ZERO/O.DO/ 

lEIZO^IDLE 

I£Qi=i 

C -  CQS  aCH  rq;,  2F  ELEMENT  MATRIX 

DO  50  JD=;,IDLE 
IF(NSYM.NS.l)  lEQO^JD 
I£2=IEU1 
j'-=-;-ccE(.rD) 

I  j=‘. 

"!JL)  10,50,50 
io  jL=-«n. 

d:xp=vdimp(JL) 

I-(DIMP.EQ.ZERO)  GO  'Q  50 

: -  FOR  EACH  COLUMN  OF  ELEMENT ' VA'RIX 

DC  40  ID=1,IDlE 
L=XLOC£(ID) 

IF(SSYM.EQ.l)  GO  '0  30 
:-(ID-JD)  3O,E0,aC 
EO  iq=:d 

30  I-;iL.5T.O)  VFG(I-)=V=G(:-j-VKE(IEC)*DiMP 

AO  :EQ=IEO+ia 

50  IE31=IEQl+IE'jO 

RETURN 
END 


ymywr^\.  "KHU' •  »  •  1,  P  1.  ■(.  *  U  •  H  '  *  -ll  .  1. 


— ^ 


£-r^iX;'IXS  ?^2V’SiVK3D) 


ivhlJh’e  To  "  Psi.NT  t:-e  ?:vdts  asD  detes’IIxan:  of  hs 


I?lrLICIT  FEfiL*S h“H,  Q-2 ) 

::c.'«cn/fe33/,\e:,  .nf  !2) 

CCMN/ES/^!,  fiR,  I'.P,  !  10) 

Di.rE.\3iC'i 

IP'S  „V;,DC7,5HCS/l.D3fi/ 
-iBo'IK) -o.-B3!X! 


V  •  -Ciy'C 

■<E=3RGS 

n»-T_»  S' 

JC.  ,  -L.'i 

:3E'=0 

; -  PRINT  PIVuTS  CF  MATRIX  'XG 

IFIM.SE.E)  WR:TE(M?,20C0)<VKGD(:),!=1,NEQ) 
lOOC  .-0RMa-'(/'  3l.G3fiL  matrix  PI’vtlTS’/(lX,10£12.5)) 
20  50  1=1,  NEC 

: -  fiBSOLLTE  VALUE  CF  MIN^JM  PIVCT 

X=ABS!VHS2(:)) 

:-'X.3T.XU  3C  TO  10 

x:=x 


0 - a.3EBRAIC  VALUE  CF  MINIiMUM  PIVO* 

X=VKSD(:) 

IC  IF'X.G’.XE)  3C  TC  20 
X2sX 
12=1 

C -  D£''ERMINft'iT  'BOUNDS  :  10  EXPCNEN’  +  CR  -  10) 

20  D£'=D£T»WGD(I) 

3!j  0E'1=ABS(DGT) 

IF(DET1.LT,1.D10)  so  to  40 

D-;>i)£Tti.D-;o 

idet=idet+;o 

40  !-(DE”l.GT.l.D-!0)  GO  'Q  50 

DE'=DE'»1.D10 

:30  'C  30 

50  cc\’;nue 

C -  OUTPUT 


wRrE(MP,2010)  XI,  II,  X2. 12,  DE^,  IDET 
2010  FGRW)T(/:5X, 'ABSOLU'E  VALUE  D-  '"INIMUM  PIVOT 


=’,E12.5,’  EOUATICN 


/EGX, 

/2SX, 


'ALGEBRAIC  VALLE=’,E12.5, '  EQUATION:’, 
'DETERMINANT  =’,E12.5,’  ♦  10  «  ' 


15/) 


REDjRN 


END 
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— - —  .  'V 


'  ('a j3. 'v 


i;N. 


ESIj'-PL  VECTOR  K.  Li  - 


ti^r'LiCi'  Rw^'>-^G  '  u“  i  / 

C0?''^0\;?SS£/  \3VV,  SKO.  “FILIR  ■  3i 

;;t:-CN/E:£C;  >Z:,Lf!E3,rRE5 

coi'>';\;33/»,  x=,  y:, .  rs,  *z.  vccyyY  (?) 

lT  ’“cVSICN  V.'.Oo  >*i ,  vXGC (*  j  I  »'K3I  (♦) ,  VFG(*) ,  KlD (*) ,  VRES(*) 

DATa  ZERC/C.DC/ 

-rSi!()=;A&5(K; 


REliilND  yO 

3 -  SKIP  VECTOR  -5  \CN  yODIEIEIi  Sv  B.C.  ON  RILE  i«3 

READ(M31  (VR£S( NEC) 

0 -  READ  VECTOR  FG  VODIRIED  SY  B.C.  A.ND  ?tflTRIX  KG 

READ(W3)  (VRES(I),I=i.NE2) 

READiyO)  iVKGo'.Ii,  :=1,NKG),  {VkGD(I),  i=l,^iEQ) 
I-INSY^.EQ.  ;>  READ(M3)  (V'KGI  (I),  I=1,NKG) 

0 -  EVALJA"  '-.E  REEIDLft.  VECTOR 

DO  10 

;0  VREGCJ^-VREGd) 

CA.L  WXK J !  VK6S,  VKGD,  'VK3I ,  KID,  V- G,  NEQ,  NSYM,  VRES) 

DO  30  ^d.^EQ 
:0  VRE5(I)=-VR£S(!) 

Xl=ZERO 

DC!  30  :=1,.NEQ 

X=ABS(VRES(1)) 

;-!S1.6£.X)  GO  TO  30 

X1=X 

:i=i 

30  CGNTirWE 

;R(y.GE.3)  WRITE (yp, 2000)  ^VRES!I),I=:,^iEQ) 

2000  FORWAT(/’  RESIDUALS  VECTOR’/(iX, 10Ei2.5)) 

WRITE {«?, 2010)  XI, II 

2010  FORMAT!/’  MAX.  RESIDUAL  vALLc=’,E12. 5,’  EQuATiaV , 15) 
RETURN 
END 
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3‘-S^0U'^Ii’'iS  P3S0L (KD^iNC,  vD;’^^, H'scO,  V-G* 


C  *G  PRIi'iT  THE  SCLLiTION 

IMPLICIT  REflL*8(A-H,a-Z) 

C“hRACT~R*4  Rr,R;.,"X 
CCMrCN/CCC’/MIIM,  N\T.  \>;LLL  <2) ,  FVLL..  (3 ) 

■CCMrCN/ES/'^',  'iR.  MP,  MDLMMY  { 10) 

‘:IC!''’MGS/‘^=VL/V ( 10) .  FX  i  10) ,  RDLMMY  (506) ,  NULL 

£' I  '<S  I  £j,\  VD ;  M  3  ( * ) ,  -(DL-VC  ( ♦ ) ,  VCG R5  ( ♦ ) ,  K,NEC  ( ♦ ) ,  vF G  i  * ) 

Dfl'fi  RF/’  *  '/,RL/’  ’/,ZERO/O.DO/ 

X2=Z£R2 

x3=zi:rc 

LRrE(MP,2000) 

EO'OO  -OR'*:;/’  vodes’, 4x,'x’,iix,’y’,iix,’Z’.;ox, ’degrees  of -reedc'-  ;♦ 

1  =  PRESCRIBED)’/) 

12=0 

DC  50  :n=i,\\t 
11=12+1 
’2=I2+NDIM 
IDI=KDLNC(IN)+1 
;:2=:<DLNC(IN+1) 

:d=:d2-idi+i 

I-CDS.L".  IDI)  GO  TO  50 
Xi=VCCRG(Il) 

Jr  i.\DIM.  3£. 2)  X2=VC0RG( 1 1 +1 ) 

IF(NDIM.S£.3)  X5=VC0RG(:i+2) 

:=ID1 

DO  40  1=1, ID 
:j='<ne2(j) 

IFCJ)  10,20,30 
10  y;:)=vDiMP(-Jj) 

FX(I)=RF 
5C  TO  40 
20  v;i)=ZERO 

-x(:i=R- 
30  ^0  40 

30  /(I)=VFG(JJ) 

“X(I)=RL 
+0  '=2+1 

«s:te(mp,2010)In,xi.x2,x3,  ('y’(iri,-x;iii,:i=i,;Dt 
2010  format { IX,  15, 3E12. 5. 5X,  5 (E12. 5.  A4) /47X. 5(E12. 5, 04) i 
50  CONTINUE 

RETURN 
END 
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3J£90UTI\e  Du3 .1'  t  <-GCE.  VD.E,  vD’  VGLEi 


*'j  jzNE^fl’E  E.E^’^EN'  D.  G.  - . 


IMPLICIT  R£.qL*8(fl-r.G-Z) 

CC*MQi\/RGDT/I-^,  ID^::,  VJL-’iiU; 

lCMMGN/ES/’',  ''R,  ^'P,  MDLMMV  ( 10) 

uI.'^NSIuN  '■*' ,  VDL3 (♦) ,  VDI''’P (♦) ,  VDLE (♦) 

GflTfi  ZESG/O.DO/ 

DO  40  ID=:,  I&LE 

i.=-;lgce(id) 

IF  (ID  10,20,30 
vDLE(ID)=VDirP(-ILj 
GC  'Q  40 
VDLE(ID)=ZERQ 
SO  "C  40 

vDLi  (ID  /  =VDLG(  Ii_) 

C3^TINUE 

;-(M.GE.2)  >i«ITE(MP,2000)  lEL.,  (VDlE(ID;  ,  ID=1,  IDLEi 
FQR(»AT(’  DEGREES  C!^  FREEDOM  CF  ElS'ENT  M5/(1X,  lOElS.S)) 
RE'ORN 
END 
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TZ  AZZ  v'ZC'jS  "j  ''-iE  -EOlZC'  ZE  “'iAE^IX  -'S  h:vD  THE  ViiC^dE  -3 
IN  ft' 

vKGS,  vK'jD,  vHGI  HhTEIX  \G  3Tt^:D  BV  5KY-_iNE 
!£YX.  GE  NtN  SY«.) 

.<^u  mM  dr  hDDSESS  oe  colu.*«  top  "EEMS  in  <3 

vFG  VEC’’OR  EG 

NEQ  ORDER  OF  VECTORS  F3  AND  RES 

NSVH  .EG.’  IF  NON  SYMMETRIC  PROBLEM 
VRES  VECTOR  RES 

OL'PL^ 

vRES  VECTOR  RES 


I'^PLICIT  REfiL«S(fl-H.O-Z) 

0.  TENS!  JN  '’VKSS  i*' ,  vKGD  (*l ,  VKGI  (♦) ,  ELDt*) .  VFS!*i ,  VS:3  !♦) 
0 -  FOR  EACH  CCLLMN  OF  MATRIX  KG 

DO  GO  ;k=i,neq 

:;RK=KU)'iKi 
JrKl=KLD{IK+i) 

l-k=j:kk‘.-jh'k 
—  DIAGONAL  TERMS 
O^VKGD ! IK) ♦VFG ( IK) 

:'(L«K.lE.O)  go  TO  £0 
;'.i=:k-.-k 
■ —  ROW  TERMS 

IE  iNSY''.  NE.  I )  C=C+SCAl(VK3S  ( JHK) ,  VFG (10) ,  LHK) 
IFlNSYM.E'l  1)  C=C+SCRL(VKGI(JHK).VFG(:0),t.hK) 

—  OG.^mn  'ERmS 
J^JAH 
;:=iK-i 

«0  -0  . iO« . 1 

vRES ( I Jl -VRES ( I J) +VKG3 ( J i *033 (IX) 

10  0=0+1 

/’RES '  Ik)  =VRi:S  (  Ik) +C 

RE'LPN 

END 
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T - - 

7^0~(i±52  681 

UNCLASSIFIED 


INPLEHENTATION  OF  A  GENERAL  FINITE  ELEHENT  CODE  ON  AN 
IBH  PC  COHPATIBLE  HICROCOHPUTERCU)  NAVAL  POSTGRADUATE 
SCHOOL  HONTEREV  CA  R  E  RUESCH  SEP  64 

F/G  9/2 


MICROCOPY  RtSOLUllON  TtSI  CHARI 

NAlldNSL  HURIAU  01  >l•^NllARU^  A 


c 

c 

L 

c 

c 

c 

C==: 


TO  FOSM  ftFFfl/S  OF  COGROI\A“Z5  A'iD  ittlGHTa  AT  3AUSS  AOIM’5 
(1,0  AND  3  DIMENSIONS)  (1,2, 3  OR  A  G,P.  PER  DIMENSION) 
INPUT 

IPGKED  N'liMBER  OF  ?OIN"’S  IN  KSI.E^A,  ZETA  DIRECT  I  uNS 
NDIM  NUMBER  OF  DI'^ENSIONS  (1,2  OR  3) 

CU'i’PUT 

v'KPG  COORDINATES  G-  GAUSS  POINTS 

VCPG  LEIGH'S  AT  GAUSS  POINTS 

IPG  *OT,AL  NUiMBER  OF  GAUSS  POINTS 


IMOLICr  REAL»8(A-H,0-Z) 

DI'tNSION  !PGXED(*),VKPG(»),VC?S(*),3(10).?(10),INDIC(A) 


:+^  THIS  IS  COMMENTED  GUT  BECAUSE  OF  ’’HE  MS  FORTRAN  CC.MP- 
C++-  ILER  BUG  WHICH  WILL  NOT  INITIALIZE  JLARGE  ARRAYS. 

’■mESE  arrays  are  now  INITIALIZED  BY  A  CALL  TO  A  DUMMY 
>++  SUBROUTINE  IMTGA  WHICH  EXISTS  SOLELY  TO  INITIALIZE 
>*+  'HESE  ■'HREE  ARRAYS 

r 

w 

:  DA'A  InDIC/I.ELA,?/ 

:  DA'A  S/0.0D0,-.57733026918%26D0,.57735O269!3%25D0, 

C  1  -.77A5%6G32AiAfl3DO,O.ODO,.77A5%6692AlA83DO, 

:  2  -,86113631159A050D0, -.33998104356486000, 

C  3  .33998104358486000,. 861 13631 1594050D0/ 

:  DATA  0/2.000,1,  ODO,li  coo, 

C  1  0,55555555555555600,0,8888888888888891)0,0.55555555535555600, 

C  2  ,34785484513745000,. 65214515486255000, 

3  .  652145154862550D0,.  34785484513745000/ 

r 

:  HERE  IS  'HE  CAlI.  'Q  GET  AROUND  THE  MICROSOFT 

C  COMPILER  BUG 

C 

CALL  INITGA(INDIC,G,P) 

C 

>++  A:.L  OF  THIS  HAS  BEEN  TO  GET  AROUND  THE  MICROSOFT 
■  COMPILER  BUG 
r 

n 

U  - - - - 

II=IPGKED(1) 

IMIN=INDIC(i:) 

I«AX=I«IN+II-1 
IF(NDIM-2)  10,20,30 
0 - 1  DIMENSION 

10  :pg=o 

DC  15  i=imin,:max 

IPG=IPG+1 

VKPG(I?G)=G(I) 

15  VCPG(IPG)=P(I) 
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ff.SRQU’INE  ^N:NV (VKSI. KEX?. V2. '<1. V=\-j 


?;sLja’’c  THE  ?n-:nve=3E  tateix  hh:d.h 
CONTAINS  "^rlE  COFFICIENTS  OF  PUNCTIGf^S  N 
INPOT  VKSI,  XEXP,  INEL,  IDi-E,  ITPE,  'i. 

WORKSPACE  VP,K1 

ClTP.T  V"N 


IMPLICIT  REAL*8(A-n,0-2) 

ILIMMON/CCCa/'IDIM.  \N'JLL(3) ,  FNULL(3) 

CCMMCN7R3DT/IE., ITPE, ITPEl, IG3E,  IDLE, ICE, IPRNE, IPREE, INEL, IDES. IP 
;  ,nll:.;4) 

CCMMCN.'ES/M,  MR,  MO,  MDLrlMMY  (10) 

DIMEf^SICN  Vi<SI(*),KEXP(*),VP(*),Kl(»),VPN(*),KDER(2) 
jA'A  2ERQ/0.DC/ 

'HIS  IS  TO  SET  AROLND  '^E  MICROSC"'  CCMOILER  EJS 
WHICH  UIL-  NCT  INT'IALlZE  *LASISE  ARRAYS 
DATA  HDER/StO/ 

■(DE.Rd)  =  0 
KDERiEl  =  0 
C£R(3)  =  0 

AL-  ^HIS  HAS  SEEN  *0  GE'  AROUND  th£  MICROSCr 
COMPILER  BUG 


-CRM  ?N  MATRIX  (FOR  AMY  LAGRANGE  ’I’YPE  ELEMENT) 


10=1 

I!=l 

DO  20  IN=1, 1.»£L 

CALL  BASER (VKSI (II ),KEXP,KDER.V?) 
12=10 

DO  10  IJ=1,INEL 
V?N(I2)=VP(IJ) 

I2=I2+INEL 

10=10+1 

I1=I1+NDIM 


END  OF  PN  FORMA'"  I  ON 


r -  P^j,jT  3N  wflTRix 

IF(M.L'.4)  go  to  40 
WRrE(’'P,2000) 

2000  FORMAT (/'  PN  MATRIX'/) 

:d=(:nel-i)»inel 
DC  30  :o=i,  iNa 
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i;=io+iD 

30  »R!TE(«0,2010)  (VPN(IJ), IJ=I0, II. INcL) 

30:0  R0RMftT(l)(.10E13.5/(14X,3E13.5)l 

: - INVERSE  r-RE  PN  ?1flTRIX 

40  CALL  INVERS(VPN,INEL,INEL,K1,DET) 
!'(D£T.NE.2ER0)  GO  TO  50 
WRITE(.*',P,i020)  ITPE 

aEO  =^OR^T'’  urt  error,  PN  SINGULAR,  £L£'‘ENT 
STOP 

r -  print  the  PN-INVERSE  iWRIX 

50  IF(M.LT.4)  GO  TO  70 
•RITE (MP, 3030) 

3030  FORMAT!/’  PN-INVERSE  MATRIX’/) 

DO  60  10=1, 1, NEL 
I1=I0+ID 

60  wRrE(MP.3010)  (V?N(IJ),IJ=I0,I1,INEL) 

RETURN 


ILflRGE 

tDESliG 

JNOFLQflTCflLLS 

tDC66 

SUBROUTINE  Nl (WSI, kEX?, KDER, VP, VPN, VNI) 

c  TO  evaluate  eunctigns  n  gr  their  derivatives 
C  AT  point  VKSI  ON  THE  REFERENCE  ELEMENT 
C  INPUT  VHSI, KEXP, KDER, VP, VPN, IDLE, W,WP 

C  OUTPUT  VNI 


IMPLICIT  REPL»8(A-H,0-Z) 

OIX'IGN/CCOR/NDIM,  NNULL  ( 3) ,  FNULL 12) 

CGMMON/RGDT/IEL, ITPE, ITPEl,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPS 
1  ,NULL(4) 

COWQN/ES/M,  MR,  MP,  MDUI^MY  ( 10) 

DI(«ENSION  VKSI (t), KEXP(*),KDER(»),VP<»),VPN(*), VNI (♦) 

DATA  ZERO/O.DO/ 

C - 

C -  COMPUTE  THE  POLYNOMIAL  BASIS  AT  POINT  VKSI 

CALL  BASEP (VKSI, KEXP, KDER, VP) 

C -  P»(PN-INVERS£)  PRODUCT 

10=1 

DC  £0  IJ=1,IN£L 
11=10 
C=Z£RC 

DO  10  11=1, INEL 
;=C+VP(II)»VPN(I1) 

10  11=11+1 

VN!(IJ)=C 
30  IO=IO+I^EL 

; -  ’TINT  FUNCTIONS  N 

IF(M.LT.3)  GO  TO  30 

WRITE (MP, £000)  (KDER(I) , I=1,NDI)M) 

£000  FORMAT!/’  DERIVATIVE  OF  N  WITH  ORDER  ’,5I£) 

WRrE(MP,£010)  (VKSI(I),I=1,NDIM) 

£010  FORMATdAX, ’AT  POINT  ’,3E13.5) 

WRITE («P,£0£0)  (VNKI),  1=1,  INEL) 

£0£0  F0RirAT(/(lX,10E13.5)) 

30  RETURN 

END 
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3RCiiTI'(E  9flSE3(VHSI.KEX0,KD£R,V?) 


■;  TO  EVALUATE  THE  POLYNOMIAL  BASIS  AND  ITS  DERIVATIVES  AT  POINT  VKSI 
C  INPLT  VKSI,KEXP,KDER,  IDLE,  IDES, NDI«,M,«P 

:  OUTPUT  VP 


:?!PLICIT  REAL*8(A-H,Q-Z) 

CC.WN/CGGR/NDIK,  iNNULL  (3) ,  FNULu  (3) 

COMW/RGDT/IE.,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  IPG 
:  ,.Na.L(>t) 

X^MON/ES/M,  MR,  MP,  MDUMMY  ( 10) 

DIMENSION  VKSI(*),KEXP(*),KDER(*),VP(») 

DIMENSION  ?UISS(3,10) 

DA’A  ZERG/O.DO/,UN/1.DO/ 


•: - FORM  SUCCESSIVE  POWERS  OF  KSI,ETA,DZETA 

DO  10  I=1,ND1M 
?UISS(I,1)=UN 

X  10  id=i,:deg 

10  PUISS(I,ID+l)=PUISSiI,ID)*VKSI(I) 

C - DERIVATI'VES  OF  ORDER  KDER  WITH  RESPECT  TO  KSI,ETA,DZETA 

DO  50  IDL=!,INEL 
Cl=UN 

I0=(IDL-1)*NDI« 

DO  30  I=1,NDIN 
IDR=KDER(I) 

10=10+1 

;X?=<EXP<I0)+1 

J=IXP-IDR 

:-:j,le.O)  GO  TO  AO 
IFCDR.LE.O)  GO  TO  30 
DO  30  ID=1,IDR 
30  C1=C1»(IXP-ID) 

3:;i  C1=C1*PUISS(1,J) 

GO  TO  50 
40  C1=ZER0 

50  VP(IDL)=C1 

C -  PRINT  POLYNOMIAL  BASIS 

IFIM.LT.A)  SO  TO  60 

WRITE (MP, 3000)  (!<DER(I),I=1,NDIM) 

3000  FORMAT!/'  POLYNOMIAL  BASIS,  DERIVATIVE  OF  ORDER  ’,313) 

WRITE (MP, 3010)  (VKSI(I),I=1,NDIM) 

3010  "0RMAT(19X,’AT  POINT  ’,3E13.5) 

WRITE (MP, 3030)  (VP(I) , 1=1,  INEL) 

3030  FDRMAT(/(1X,10E13.5)) 

60  RE'LRN 

END 


SUBROUTINE  IWERS(VP,N,  IVP,K,DET) 


P; 

C 

c 

c 

c 

c 

c 

c 

c 


C- 


5 

c- 

c- 


10 

c- 

£0 


30 


40 


50 

C- 


TO  INVERT  fl  N0N-SVW1ETRIC  MATRIX  WITH  SEARCH  OF  A 
NON-ZERO  PIVOT  IN  A  COLUW 
INPUT 

VP  MATRIX  TO  BE  INVERTED 

N  ORDER  OF  THE  MATRIX 

IVP  DIMENSION  OF  mE  MATRIX  IN  Tl€  CALLING  PROGRAM 
K  INTEGER  WORKING  ARRAY  WITH  LENGTH  N 
OUTPUT 

VP  INVERSE  MATRIX 

DET  DETERMINANT 


IMPLICIT  REAL»8(A-H,0-Z) 

DI.MENSION  VP(IVP,IVP),K(N) 

DATA  ZERC/O.DO/,UN/l.DO/, EPS/1. D-13/ 
ABS(X)=DABS(X) 


DET=UN 
DO  5  1=1, N 
K(I)=I 

-  START  INVERSION 

DO  30  11=1,  N 

-  SEARCH  FOR  NON-ZERO  PIVOT  IN  COLUMN  II 

DO  10  I=II,N 
PIV=VP(I,II) 

IFIABSIPIVI.GT.EPS)  SO  TO  20 

CONTINUE 

DET=ZERO 

RETURN 

-  EXCHANGE  LINES  II  AND  1 

DET=DET»PIV 
IF(l.EO.II)  GO  TO  40 
I1=«(II) 

K(II)=K(I) 

K(I)=I1 
DO  30  J=1,N 
C=VP(I,J) 

VP(I,J)=VP(II,J) 

VP(II,J)=C 

DET=-D£T 

-  NORMALIZE  PIVOT  LINE 

C=UN/PIV 
VP(II,II)=UN 
DO  50  J=1,N 
VP(II,J)=VP(II,J)»C 

-  ELIMINATION 

DO  70  1=1,  N 
IFd.EQ.II)  GO  TO  70 
C=VP(I,II) 
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DO  60  J=1,N 

60  va(I,J)=VP(I,J)-C*VP(II,J) 

70  CONTINUE 

(iO  CONTI, >iUE 

C - REORDER  THE  COLUMNS  OF  INVERSE  M,ATRIX 

DO  1£0  J=1,N 

C - FIND  J1  SUCH  THAT  K(J1)=J 

DO  90  J1=J,N 
JJ=K(J1) 

IFCJ.EQ.J)  60  TO  100 
9C  CONTIIAJE 

ICO  ’-(J.EQ.Jl)  GO  TO  120 

C - EXCWINGE  COLUMNS  J  AND  J1 

!<(Jl)=K(i) 

DO  110  1=1, N 
C=V?(I,J) 

VP(I,J)=VP(I,J1) 

no  vp(i,ji)=c 

120  CONTINUE 

RETURN 
END 


SLEl^OUTIfC  JACOB (VNI .  VCORE,  NDir-i,  INEL, VJ, VJl, DETJ) 


c 

TO  EVW.UATE 

THE  JACOBIAN  MATRIX,  ITS  DETERMI.NANT  Wffl 

C 

ITS  INVERSE 

(1,2,3  DI«ENSI(»iS) 

c 

INPUT 

c 

VNI 

DERIVATIVES  OF  INTERPOLATION  FUCTION  W.  R.  T. 

C 

KSI,ETA,DZETA 

c 

VCORE 

ELEMENT  NODAL  COORDINATES 

c 

NDDM 

NUMBER  OF  DIMENSIONS 

z 

INEL 

, NUMBER  OF  NODES  PER  ELEMENT 

C 

OUTPUT 

r- 

u 

VJ 

JACOBIAN  MATRIX 

L 

VJl 

INVERSE  OF  JACOBIAN  MATRIX 

- 

DETJ 

DETERMINANT  OF  JACOBIAN  MATRIX 

IMPLICIT  REAL»8(A-H,0-Z) 

DIMENSItW  VNI  (INEl,  ♦) ,  VCOREINDIK,  •) ,  VJ  (*) , VJI  (#) 
OATA  ZERO/O.DO/,UN/1.DO/ 

C - 

C -  FORK  THE  JACOBIAN  MATRIX 

J=1 

DO  20  JJ=1,NDIM 
DO  20  11=1, NDIM 
C=ZESO 

DO  10  IJ=1,INEL 

10  C=C+VNI(IJ,1I)*VC0RE(JJ,IJ) 

VJ(J1=C 
20  J=J+1 

C - 1,  2,  OR  3  DIMENSIONAL  INVERSION 

GO  TO  (40,50,60),NDIM 
40  DETJ=VJ(1) 

IFIDETJ.EQ.ZERO)  RETURN 

VJ1(1)=UN/DETJ 

RETURN 

50  D£TJ=VJ(1)#VJ(4)-VJ(2)»VJ(3) 

IF(DETJ.EQ.ZERO)  RETURN 
VJ1(1)=VJ(4)  /DETJ 
VJl (2)=-VJ(2) /DETJ 
VJ1(3)=-VJ(3)/DETJ 
VJl {A)=VJ(1) /DETJ 
RETURN 

60  DET J=V J ( 1 ) # ( VJ (5) *VJ (9) -VJ ( 8) »VJ (6  > ) 

1  ♦VJ(4)*(VJ(8)»VJ(3)-VJ(2)*VJ(9)) 

2  +VJ (7) ♦ ( VJ (2) *VJ (6) -VJ (5) tVJ (3) ) 

IF (DETJ. EQ. ZERO)  RETURN 

VJl ( 1)  =  ( VJ (5) »VJ  O' -VJ (6) tVJ (8) ) /DETJ 
VJ1(2)=(VJ(3)*VJ(8)-VJ(2)#VJ(9))/DETJ 
VJl (3)=(VJ(2)*VJ(6)-VJ(3)*VJ(5)) /DETJ 
VJ!(4)  =  (VJ(7)»VJ(6)-VJ(4)tVJO))/I)ETJ 
Vj:(5)=(VJ(l)fVJO)-VJ(7)*VJ(3))/DETJ 
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VJ1(6)=(VJ(4)*VJ(3)-VJ(6)»VJ(1))/DETJ 

vJl(7)=(VJ(4j»VJ(8)-VJ(7)*VJ(5))/DeTJ 

VJl(3)=(VJ{2)*VJ(7)-VJ(8)*VJ(i))/DETJ 

v: 1  !9)  =  ( VJ ( 1 » tVJ (5) -VJ i A) tVJ (2) ) /DETJ 

RETURN 

END 


SJBROUTIft  DNIDX (VNI , VJl, NDIM,  INEL.  VNIX) 

C  COMPUTE  THE  DERIVATIVES  OF  INTERPOLATION  FUNCTIDfiS  WITH 
C  RESPECT  TO  X,Y,Z 

C  (1,2  OR  3  DIMENSIONS) 


c 

INPUT 

u 

VNI 

DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WITH  RESPECT 

C 

TO  KS1,ETA,DZETA 

c 

VJl 

INVERSE  OP  THE  JACOBIAN 

c 

NDIM 

NUMBER  OF  DIMENSIONS  (1,2  OR  3) 

r 

L 

INEL 

NUMBER  OF  INTERPOLATION  FUNCTIONS  (OR  NODES) 

C 

OUTPUT 

C 

VNIX 

X,y,Z  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS 

c — 

IMPLICIT 

R£AL»a(A-H,  0-Z) 

DIMENSION  VNI  (IfCL,*),  VJl  (NDIM,*),  VNIXdNEL,*) 

DATA  ZERO/O.DO/ 

50  20  1=1 

,NDIM 

DC  20  J=1 

,INEL 

C=ZE,RO 

DC  10  IJ= 

1,NDIM 

10  C=C+VJ!(I,IJ)tVNI(J,IJ) 

20  vn:x(j,:)=c 

RETURN 

END 


205 


tJ  tj  CJ 


SL'BSOUTINE  SOL  (VKGS.  VKGD,  VKGI,  VFG,  KLD,  NEQ,  MP,  IFftC,  ISOL,  NSY1,  ENERG) 


c 

TO  SOLVE  A  LINEAR  SYSTEM  (SYMMETRICAL  OR  NOT). 

r 

w 

THE  MATRIX  IS  STORED 

IN  CORE  BY  SKYLINES  IN  ARRAYS 

c 

VKGS, VKGD,  VKG; 

r 

INPL"^ 

VKGS, VKGD, VKGI 

SYSTEM  MATRIX  ;  UPPER,  DIAGONAL  AND 

c 

LOWER  PARTS 

z 

VFG 

SECOND  l€MBER 

c 

:kld 

ADDRESSES  OF  COLUMN  TOP  TERMS 

c 

NED 

number  of  EQUATIONS 

MP 

OUTPUT  DEVICE  Nl#(BER 

z 

I  FAC 

IF  IFAC.EQ.l  TRIANGULARIZE  THE 

c 

MATRIX 

ISOL 

IF  ISOL.EQ.l  COMPUTE  THE  SOLUTION  FROM 

c 

TRIANGULARIZED  MATRIX 

NSYM 

INDEX  FOR  ^iNSYMMETRIC  PROBLEM 

c 

OUTPUT 

L 

VKGS, VKGD, VKGI 

TRIANGULARIZED  MATRIX  (IF  IFAC.EQ.l) 

c 

VFG 

SOLUTION  (IF  ISOL.EQ.l) 

c 

ENERG 

SYSTEM  ENERGY  (IF  NSYM.EQ.O) 

IMPLICIT  R£AL«a  (fi-H,0-Z) 

DIMENSION  VKGS(*).VKGD(»),VKGI(*),VFG(«),KLD(») 
DPTft  ZERO/O.ODO/ 

IK=1 

IF ( VKGD (l).EQ. ZERO)  GO  TO  80 
ENERG=ZERO 


- FOR  EACH  COLUMN  IK  TO  BE  WDIFIED 


JHK=I 

DO  100  IK=2,NEQ 

C -  ADDRESS  OF  THE  ^£XT  COLUMN  TOP  TERN  IK+1 

JHK1=KLD(IK+1) 

C -  HEIGHT  OF  COLUJW  IK  (INCLUDE  UPPER  AND  DIAGONAL  TERMS) 

LHK=JHK1-JHK 

lHKKHK-1 

C -  ROW  OF  FIRST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMIN=IK-Lrt<l 

!MIN1=1MIN-1 

C - ROW  OF  LAST  TERM  TO  BE  MODIFIED  IN  COLIWN  IK 

IMAX=IK-1 

IF(LH<l.LT.O)  GO  TO  100 
IF(IFAC.NE.l)  SO  TO  90 

I'(MSYM.EQ.l)  VKGI(JHK)=VKGI(JHK)/VKGD(IMIN1) 
IF(LHKl.EQ.O)  GO  TO  AO 
C 

C -  •«DIPY  NON-DIAGONAL  TERM  IN  COLUMN  IK 
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JCK=JHKfl 

JHJ=KLD(I«IN) 

r -  cpCrt  TERM  LCKfiTED  fiT  JCK  ftND  CORRESPOND  I. MG  TO  COLUMN  IJ 

DO  30  IJ=I«1N,IWX 

C -  NUMBER  OF  MODIFICATIVE  TERMS  FOR  COL-FICIENT  LOCATED  A'  JCk 

IC=«INO(JCK-JHK,  JWl-JHJ) 

IF'.IC.lE.O.AND.  NSYM.EQ.O)  so  TO  20 
C1=ZERC 

IFIIC.lE.O)  (50  TO  17 
:i=JHJl-!C 

:e=jck-:c 

(-(NSYN.EQ, !)  GO  TO  15 

/■<  3S  ( JCK )  =  VKG3  ( JCK ) -SCAL  ( VKSS  ( J 1  > ,  VK6S  ( J2 ) ,  1 0 ) 

GO  TO  20 

!5  VKGS(JCK)=VKSS(JCK)-SCAL(VKGi(Jl),VKGS(J2),:C) 

C1=SCAL{YKGS(J1),VKGI(J2),IC) 

17  YKGI (JCK) = ( VKGI (JCK) -Cl ) /VKGD ( ! J) 

20  JCK=JCK+1 
30  JHJ=JHJ1 

r 

; -  modify  DIAGONAL  TERM 

r 

»0  JCK=JAK 

CDIA&=ZERQ 
X  70  IJ=IMIN1,IHAX 
C1^VK,GS(JCK) 

IriNSYM.EQ.  1)  90  TO  50 
C2=C1/VKGD(IJ) 

'vKSSi  JCK)=C2 
GO  'Q  60 

5*:)  Ca^VKGKJCK) 

60  CD!AG=CDIAG+C1»C2 

::k=jck+i 

WGD(IK)=VKGD(IK)-CDIAG 
:F(VKGD(IK))  90,80,90 
S')  »RITE(MP,2000)  IK 

2000  FORMATC  M*  ERROR,  ZERO  PIVOT  EQUATION  ’,15) 

STOP 

C 

c - savE  lower  triangular  system 

u 

90  IF'Isa.NE.l)  GO  TO  100 

IF(NSYM.NE.  1)  '7FG(IK)=VFG(IK)-SCAL(VKGS(JHK),VFG(IMINl),tHK) 
IF'NSYM.EQ. 1)  VFG(IK)=VFG(IK)-SCAL(VKGI(JHK),VF3(IMIN1),LHK) 
100  J'r(K=JHKl 

I'^'ISa.NE.  1)  RE'URN 

C 

; - SOL'TE  DIAGONAL  SYSTEM 

C 
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DC  30  !'‘hs3 

( I J*1 .  --'30 

-  SL''B£3  cr  rcD:-:;o 

:-  liC.  .3.0. 3ND  \SV'. 

!-(IC.-£.0)  3C  '£  :? 

1-13 

J£=JCK-:3 

IF(NS't'".EC.  1/  3C  ’0 
vi<GS(JCK!=V-3£',33<,- 
30  ■^Q  30 

W3S(JCK)=VK3£{:3a)- 

Cl=SCflL;V“3S(jl),Vr3 

ok3:(JCK)=;vks;(::a) 

JCK=JCK+; 

-  rODIFY  3'IfiGCNflL  ■"£ 

IFdBC.NE,  ;5)  3C  -Q 

JCK^JHK 

CDI?3=ZEPQ 

DO  70  I'^x 

Cl=VKGS!:C:<) 

IF  (N'SY'^.  £j.  1 )  30  *3 

C2<i/v-x33:j; 

WGS(JCi<-33 

'30  '0  60 

C£='/kG:  '.03F,i 

CDlfiG=CD:s3-C>33 

:cK=Jc;o+; 

VKSD(I-'J=V-;33  ;-::-33 
IFiVKGDdi^)  i 
tJRr£(!»P,3';'03:  1^ 
FOR'^flT!’  ♦♦♦  E-‘-3  =  , 
STOP 

-  SOLVE  ;.CUER  ’R;A.v5 


IFdSOL.VE.  1)  GO  "3i 
IFdBC.NE.  IB)  GO  '0 
IF 'NSY».  N£.  1 '  v'-Gd"^ 
IFiNSYM.EC, I:  VF^ : > 
CONTINUE 

—  NEX’  CWIEC^ED  B 
CONTINUE 

—  ENJ  Qr  ElITInh'I 
I- !IB.E3.N&.-r)  33  '3 


C.J  f-j  L  I  I  J  <-»  •  •  Li  CJ  t_i  L) 


:eo= 


IF  ’  ZI.  r .  3j  '0  I . 

c -  : .  iZ'iNEC'z;  F-:;-3 

I 1=IB-15  ' 

DO  10  i = .  1 
pfiCHSPAOE  '3 

1" -3.  1  ‘  rA.-r-’-z,  'j 
10  CCN'I’^E 

1  DC  103  !BC=:;-::,  ID 

IFdBC.EQ.  :B)  31  13 

REflD(’*5)  !7KG£':;, 

EQ.  1)  fe;l 

-  PARflf'rEFS clv.ed'e; 

3  i:0=t<EB<:3C) 

::i=KEB;:EC‘;i-i 

jec=k:.D(i:o;-; 

IFCFC.NE.  ;&)  J:0=:C0-\_rL 

- 'DR  EACr  :A3-.:'^  OF  E.oc:.  1?  "  EE  'Eo:-:;: 

DO  100  :k=iko,  :-;i 
JE-^^KLD  (!'■<) -JO 

■  ADDRESS  OF  \E>'  OC.-'^N  'I'-  'EE'  >>. 

."HKi^KLOCK+D-JO 

itlG'’*  0“  EC-j'YN  IK  (I'vE _ DE  '.--Et  A  <E  DIEEL'---  i-”; 


lHK=JAK1-'-^K 

L:-^l=i.KK-l 

- RCU  OF  -IRS'  TER--  'D  EE  ''CDIFIED  I'l  I'. 

IlX;N=IK-,-iK,: 

I''IN1  =  I*'I‘J-1 

-  RCw  OF  .AS'  'ERY  '3  EE  '■ODI'IED  I\  EE..^'.  I-. 

:'«X=!K-1 

IF  (LRXl.  .T.  Oi  EG  'C  '.'j-j 
IFdFOC.NE,  1)  Gj  TC  G) 

I- (NSYM.  E3.0)  EG  'G  1“ 

IBI^IB 

iF!iYi\'_:, IKO)  I3i=;bo 

IFdBC.EG.  151!  W3:::-K.=vKGI;JHK)/VKGD(I''I\;: 

A  IF ( IBC.  EQ.  IB.  A^D.  Ik.  ::3j  I K ,')  jj  -j  Ml 
IF(LH<l.EQ.O:  3l  'G  “0 
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CA-^  tLEW.B  ( VCORE,  VORNE.  VPREE,  VOLE,  WE,  V-E) 

C -  PRIM  ELEI^ENT  MATRIX 

IF(M.L^E)  50  TO  60 
IFi^SYM.EQ.O)  IKE=IDLE*(IDL£+l)/2 
IC'nSYM.EQ. 1)  IK£=1DLE*IDL£ 

WRITE(NP,2000)  lEL,  (WE(I),  1=1,  IKE) 

EOOO  -ORMATl/’  MATRIX  (KE)  ,  EL£>€NTjM5/(10X,  10E12.5)) 

C - MODIFY  FG  ^OR  THE  PRESCRIKD  NON  ZERO  D.O.F. 

50  IFINaNZ.NE.O.AND.  IB.EQ.l)  CALL  MODFG(IDLE,NSYM,KLOC£,  VDIMP.VKE 
1  VFG) 

C - ASSEMBLE 

CALL  ASSELD ( 1 , 0,  IDLE,  NSYM,  IE ! ,  IE2,  KLQCE,  KLD,  WE,  VFE,  WGS,  WGD, 

1  WGI,VFG) 

ITPE1=ITPE 
70  CONTINLC 

C - END  OF  A  BLOCK 

WRITEIMA)  (VKGS(I),I=1,NLBL) 

IF(NSYM.EQ.l)  URITEim)  (WGI  (I),  I=!,^LBL) 

I-(M.LT.2)  GO  TO  30 
URITE(MP,2010)  IB,  (WGS(I),I=1,NLBL) 

2010  ^QRMATC  UPPER  TRIANaE  BLOCK  OF  (KG)  N0:’,I5/(1X,10£12.5)) 
IF(NSYM.EQ.!)  WRITE (MP, 2020)  IB,  (WGKI),  I=t,NLBL) 

2020  FORMAT (’  lOUER  TRIANGLE  BLOCK  OF  (KG)  NO:’, I5/(1X, 10E12.5) ) 

80  CONTINUE 

IF(M.GE.2)  WRITE (MP, 2030)  (WGD(I), I=1,N£Q) 

2030  FORMATC  DIAGONAL  OF  (KG)'/(1X,  10E12,5)) 


SLl-RCLl'^INt  flSKGD(KLD, VDI^lP, KLOCE. VCORE, VP3^iE. VPREE, KM, VKE, VFE, 
1  VKGS,VKGD,VKGI,VFG,VDLE,VRES,KEB) 

C  "0  PSSEWBLE  GLOBAL  MATRIX  KG  (ELEMENT  FUNCTION  TYPE  3) 

■;  TAKING  INTO  ACCOUNT  OF  PRESCRIBED  NGN  ZERO  D.O.F, 

C  MRSION  :  MATRIX  KG  STORED  BLDCKWISE  ON  FILE  «4 


IMPLICIT  REAL*a(A-H,0-Z) 
cg.mmon/ognd/.v:lt,  nclz,  nclnz 

COMMQN/ELEM/NELT, NNEL, NTPE, NGRE,  ME,  NIDENT,  WftJLL 
DOMMON/ASSE/NSYM,  MILLR  (3) 

COMWON/RESO/NEQ, NFILLR (£) 

i;«CN/RGDT/IEL,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  IPRM,  IPREE,  INEL,  IDEG,  IPG 
1  ,IC0D,NULL(3) 

COMMON/LIND/HLBL, NBLM, MKGl,  MKG2 
COMMON/ES/M,  MR, MP, Ml , M2, M3, M4, M5, MDUMMY  (5) 

DIMENSION  KLD(*),VDIMP(*),KLOCE(*),VCORE(*),VPRNE(»),VPREE(*), 

1  KNE(»),VK£(*),VFE(«),VKGS(*),VKGD(«),VKGI(»),VFG(*),VDLE(*), 

1  VRES{»),KE3(t) 

DATA  ZERO/O.DO/ 

C - REWIND  FILE  M4 

REWIND  M4 

C -  LOOP  OVER  THE  BLOCKS 

DC  80  IB=1,NBLM 

0 -  INITIALIZE  THE  BLOCK 

DO  10  I=1,NLBL 
IF(NSYM.EQ.l)  VKGI(I)=ZERO 
10  VKGS(I)=ZERO 
IE1=KEB(!B) 

IE2='KEB(IB+1)-1 

0 -  REWIND  ELEMENT  FILE  (M2) 

REWIND  M2 

: - LOOP  OVER  THE  ELEiCNTS  ASKD  34 

DO  70  IE=1,MLT 

C - READ  AN  aEMENT 

CALL  RDELEM(M2,KLOCE,'7CORE,VPRNE,  VPREE, KM) 

C -  CHECK  IF  BLOCK  IS  AFFECTED  BY  THIS  ELEMENT 

DO  20  10=1. IDLE 
J=KLOCE(ID) 

iF(J,LT.  IE1.0R.J.ST.IE2)  SO  TO  20 
GO  TO  40 
2<)  CONTINUE 

30  U^CB.NE.l.OR.  (NCLNZ.EQ.O.AND.IB.EQ.D)  GO  TO  70 

C -  EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

40  IFdTPE.EQ.ITDEl)  GO  TO  50 

IC0D=2 

CALL  ELEMLB(VCORE,VPRNE, VPREE, VDLE, VKE, VFE) 

C -  FORM  ELEMENT  MATRIX 

50  IC0D=3 
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50  KPB(NBL-1)=IB 

IMIN=!K 

r -  SEARCH  FOR  ROW  NUMBER  FOR  COLUMN  TOP  TERMS 

60  I=IK-LBKin 

1F(I.l''.IMIN)IMIN=I 

70  CONTINUE 

C -  FIRST  BLOCK  CO^WECTED  TO  LAST  BLOCK 

IB=NBL 

80  IFdMIN.SE.KEBdB))  GO  TO  90 

IB=IB-1 
GO  TO  80 

90  KPB(NBL)=IB 

KEB(NBL+1)=NEQ+1 

NBLMA)(=NBL 

RETURN 

END 
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SljBStXJ’INE  EQBL'X  (K.D,  MBL,  xeL^fiX,  NEQ,  KEB,  KPB) 


C 

C 

c 

c 

c 

r 

C= 


TO  rOSM  TABLES  KEB  AND  KPB  DEFINING  EQUATION  BLOCKS 
INPUT 

KLD  ARRAY  OF  A  ADDRESS  OF  COLUMN  TOP  TERMS  IN  KG 
NLBL  BLOCKS  LENGTH 

NBLMAX  ,MAX.  NUMBER  OF  BLOCKS  AaOWED 
NEQ  NUMBER  OF  EQUATIONS 

OUTPiJT 

KEB  ARRAY  CONTAINING  THE  NUMBERS  OF  FIRST  EQUATIONS  IN 
EACH  BLOCK  (DIMENSION  NEQ+1) 

KPB  ARRAY  CONTAINING  THE  NUMBER  OF  FIRST  BLOCKS  CONNECTED 

TO  EACH  BLOCK  (DIMENSION  NEQ) 

NBLMAX  NUMBER  OF  BLOCKS 


COMMON/ES/M,  MR, MP,  MDUMMY (10) 
DIMENSION  KLD(*),KEB(»),KPB(») 


C -  FIRST  BLOCK 

ILBL=0 

NBL=1 

KEB(1)=1 

KPB(1)=1 

:min=: 

: -  FOR  EACH  EQUATION 

DO  70  IK=1,N£Q 

C -  ADDRESSES  FOR  COLUMN  IK 

JH<=KLD(IK) 

JHKl=KLD(IK+l) 

L3K1=JHK1-JHK 

:f(lbki.le.nlbl)  go  to  lo 

yRITE(MP,2000)  IK,LBK1,NLBL 

EOOO  FORMATC  t«  ERROR, COLUMN', 15,’  GREATER!’, 15, MTHAN  BlOCKC  .15.’ 
1)’) 

STOP 

C -  CHECK  FOR  NEW  BLKK 

10  ILBL=ILBLHJiK1 

IFdLBL.LE.NLBL)  GO  TO  60 
NBL=NBL+l 

IF (NBL.LE. NBLMAX)  GO  TO  20 
WRITE (MP, 2010)  IK 

2010  'ORMATC  ***  ERROR,  EXCESSIVE  NUMBER  OF  BLOCKS,  EQUATION’ ,  15) 

STOP 

20  KEB(NBL)=rK 
ILBL=LBK1 

C -  SEARCH  FOR  FIRST  BLOCK  CONNECTED  TO  COMPLETED  BLOCK 

IB^NBL 

IFdMIN.GE.KEBdB))  GO  TO  50 
IB=IB-1 
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i(*0  SOLUTION'//) 

L/i-L  PRSa(KI>.'C,VCORG,VDl«P,'<,'€Q,VfG) 

C 

C -  EVALUATE  AND  PAINT  GRADIENTS 

C 

CALL  ASGRADtKLD,  VDIWP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  WE,  vFE,  VKGS, 
1  VKSD,VKGI,VFG,VDLE,VRES) 

C 

C - EVALUATE  A:ND  PRINT  EQUILIBRIUM  RESIDUALS  AND  REACTIONS 

C 

C - READ  VECTOR  FG  AND  CHANGE  ITS  SIGN 

REWIND  K3 

READ(M3)  (VRES(I),I=1,N£Q) 

DO  40  1=1, NEQ 
40  VRES(I)=-VRES(1) 

C -  ASSEMBLE  RESIDUALS  AND  REACTIONS 

CALL  ASR£SD( 1, 1, KLD, VDIMP, KLOCE,  VCORE,  VPRNE, VPREE,  KNE, VKE, VFE, 

1  VKGS,  VKGD,  VKGI, VFG,  VDLE,  VRES, VRES (NEQ+1 ) ) 

C -  OUTPUT 

WRITE (MP, 2070) 

2070  'FORMAT!//'  EQUILIBRIUM  RESIDUALS  (WD  REACTIOf«’ //) 

CALL  PRSOL(KDLNC,VCORG, VRES (NEQ+1),KN£Q, VRES) 

RETURN 

END 
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CJ  '^1 


"0  EXECUTE  BLXK  ’LIND’ 

assemble  and  solve  a  linear  problem  when  matrix  kg  is  stored 

C  BLCCKWISE  ON  DISK 


IMPLICIT  REAL»a(A-H,D-Z) 

COXWON/ASSE/NSYM,  WS,  !«£,  NDLE 
XMMON/REBO/NEQ,  NRES,  MRES 
CC»10N/LIND/NLBL,NBLM,  MKSl,  »<82 
XKMCN/ES/M,  MR,  MP,  Ml,  M2,  M3,  MDIMY  (7) 

DIMENSION  KLD(*),VDIMP(*),KLXE(«),VCORE(*),VPRNE(»),VPREE(*), 

1  KNE(»),VKE(»),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VCORG(*), 

2  KDLNC(*),KXEQ(»),VRES(»),VDLE(*),K£B(*),KPB(») 


REWIND  M3 

C - FORM  TABLES  £B  AND  PB  DEFINING  EQUATION  XOCKS 

CALL  EQBLX(KLD,NLBL,NBLM,ICQ,KEB,KPB) 

WRITE (MP, £000)  NBLM 

£000  FORMAT (15X,’ NUMBER  OF  BLOCKS  IN  KG  (NBLM)=’,I5) 

F(M.LT.2)  GO  TO  10 
I1=NBLM+1 

WRITE(M?,£010)  (KEB(I),I=1,I1) 

£010  FORMAT!/’  FIRST  EQUATION  IN  EACH  BLXK  (EB)’/(5X,20I5)) 

WRITE (MP, £020)  (KPB(I), I=1,NBLM) 

2020  FORMAT!/’  FIRST  BLXK  COWCCTED  TO  EACH  XOCK:  (PB)’/(5X,£0I5) ) 

C - SAVE  FG  UNMODIFIED  FOR  PREXRIBED  B.C. 

10  WRITE  (M3)  (VFG(I),I=1,NEQ) 

IF(M.G£.2)  WRITE(MP,2030)  (VFS(I),I=1,NEQ) 

2030  FORMAT!/’  GLOBAL  LCAD  VECTOR  UMMODIFIED  FOR  THE  B.C.  (FG)’ 
1/(1X,10£12.5)) 

C -  ASSEMBLE  KG,  MODIFY  FG  FOR  B.C.  AND  SAVE  MODIFIED  FG 

CALL  ASKGD(KLD,  VDIMP,  KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, VKGS, 

I  VKGD,VKSI,VFG,VDLE,VRES,KEB) 

WRITE(M3)  (VFG(I),I=1,NEQ) 

C -  PRINT  FG 

IF(M.GE.2)  WRITE (MP,20A0)  (VFG(I), I=1,NEQ) 

2040  FORMAT!/’  XOBAL  LOAD  VECTOR  MODIFIED  FOR  THE  B.C.  (FG)’ 

1  /(IX,  1X12.5)) 

C 

: - SOLVE 


20  CALL  S0LD(VKGS,VK6D,VKGI,VFG,KLD,N£Q,MP,l,I,NSYM,ENER6,KEfl,KPB) 

IF!NSYM.NE.l)  WRITE (MP, 2050)  ENERG 
£050  FORMAT (15X,’ ENERGY  (ENERG)=’ , 1E12. 5) 

C -  KG  PIVOTS  AND  DETERMINANT 

30  CALL  PRPVTS(VKGD) 

C - PRINT  XT  TIC  SOLUTION 

WRITE (MP, £060) 
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WRITE (MP, 2000)  M,NRES 

-0R*flT(//’  GN  DISK  OSSEMBLflGE  AND  LINEAR  SOLUTION  (M=’,I2,')’/ 

1  ’  ',42(’=')/15X,'INDE)(  -OR  RESIDUAL  COMPUTATION  (NRES)=’,I5) 
IF(LKSD.ED.l)  CAu.  £SPAC£(,N£Q,  1, TBL(2),LJ<GD) 

IFILFS.EQ.l)  CALL  ESPACEINEQ, l,TBL(A),LfG) 

IF('.KE.E3,1)  cal;.  ESPACEINKE,  1,TBL(5),LKE) 

IF(LFE.EQ.l)  CALL  ESPACEINDLE,  1,TBL(6),LFE) 

I-(LRES.£Q.1)  call  ESPACE(ND;.T,1,TBL(7),LRES) 

IF(lDLE.EQ.I)  call  ESPACE(NDL£,l,TBL{a),LDLf) 

-  PIN'D  BLOCK  .ENGTH 

13=2 

:2=1+NSYM 

IFIMBL.EQ.O)  GO  TO  10 
IFINBlM.EQ.O)  NBLM=NKG/MJL+2 
GO  TO  30 

I  l=NVft-IVA-  (2«(BLMAX+2)  /NREEL-1 
IFdl.GE.  (WG*I2+2))  GO  TO  20 

-  CASE  WHERE  MATRIX  IS  TO  BE  SEGMENTED 

NLBL=I1/(DEUX»I2) 

NBLM=NKG/NLBL+2 
K1  I’D  30 

-  CASE  WHERE  MATRIX  IS  IN  CORE 

NLBL=M<G 

NBLM=1 

I>1 

WRITE (MP, 2010)  NLBL,NBLM 
FORMAT ( 

1  15X, 'BLOCKS  LENGTH  IN  KG  (fOL)=’,I5/ 

2  15X,’WAX.  NUMBER  OF  BLOCKS  IN  KG  =’,I5) 

CALL  ESPACE(MBLM+1,0,TBL(9),LEB) 

CALL  ESPACE(NBLM,0,TBL(10),LPB) 

IFILKGS.EQ.l)  CAa  ESPACE(NLBL»I3, 1,TBL«1),LKSS) 

IFINSYM.EQ.  l.AND.LKGI.EQ.l)  CALL  ESPACE(NLBL*I3,1,TBL(3),LKGI) 
call  EXLIND ( VA (LLD) , VA(LDIMP) , VA (LLOCE) , VAtLCORE) , VAILPRNE) , 

1  VA(LPREE),VR(LJ«),VA(LKE),VA(LFE),VA(LKGS),VA(1J<GD), 

2  VA(LKS1),VA(LF6),VA(LC0RG),VA(LDLNC),VA(LN£Q), 

3  VA(LRES),VA(LDLE),VA(LEB),VA(LPB)) 


SLEROJTIiC  BLLIND 


C=============================r========== 

C  TO  CflLL  BLOCK  'LIND' 

:  TO  ASSEMBLE  AND  TO  SOLVE  A  LINEAR  PROBLEM  WHEN  MATRIX  KS  IS 

C  STORED  BLOCKWISE  ON  DISK 


K- 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER*A  T3L 

COMK»I/COCR/NDIM,  NNT,  NDLN,  NDLT,  FNULL  (3) 

COWMCN/ElEM/NULLIA)  ,ME,»<ULL(2) 

::2»!ON/AS3E/NSYM,  NK6,  NKE,  NDLE 
CCMMQN/RESQ/NEQ, NRES, MRES 
IS'rON/LIND/NLBL, NBLM, MKGl, MKSa 
CCMMQN/ES/M, MR, «P, MI, M2, M3, M4, M5, MDUMMY (5) 

3jM“"CN/&LLOC/NVR,  IVA,  IVAMAX,NR£EL,  IDUMMY 

COMMON/LQC/LCORG, LDLNC, LNEQ, LDIMP,  LPRNG, LPREG, LLD, LLOCE, LCORE, LNE, 
1  LPRNE, LPREH,  LDLE,  LKE,  Lf  E,  LKGS,  LKGD, lKGI  ,  LEG,  LRES, LDLG, LDUMMY ( 4 ) 
COMMON  VA(1) 

DI^^NSION  TBL(10),IN(3) 

DA'^A  DEUX/2.DO/,NBLMAX/100/ 

C+++  THIS  IS  CEMMENTED  OUT  BECAUSE  OF  AN  MS  FORTRAN  COMPILER 

C+++  KJG  WHICH  WILL  NOT  INITIALIZE  iURGE  ARRAYS.  THIS  ARRAY 

C+++  IS  NOW  INITIALIZED  BY  A  CAa  TO  A  DUMMY  SUBROUTINE 
C+++  INITBL  WHICH  EXISTS  SOLaY  TO  INITIALIZE  THIS  ARRAY 
C 

C  DATA  TBL/' KGS  ’,’KGD  ','KGI  ','FG  ’,’KE  ’,*FE  ’,’RES  ’,'DLE 
C  1  'EB  ’,’PB  '/ 

C 

C  HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 

CALL  INITBL (TBL, ’LIND') 

p 

C+++  ALL  OF  THIS  IS  TO  GET  AROUND  THE  MICROSOR 
C+++  COMPILER  BUG 
C 

C - 

C - FILE  NUMBERS 

IF (Ml. SO. 0)  «l=Mfi 
IF(M2.EQ.O)  M2=ME 
IF(M3.EQ.O)  M3=MRES 
!F(M4.E(3.0)  M4=MKS1 
IF(M5.EQ.O)  M5=MKG2 

00£N (M3, FILE=’ $$M3*. DAT’ , STATUS=’ NEW’ , FORM=>  UNFORMATTED’ ) 

0PEN(M4,  FILE=’  »$M4$.  DAT’ ,  STATUS=’  NEW’ ,  FORM=’ UNFORMAHED’ ) 

OPEN (M5,  FIL£=’  $$M5I.  DAT’ ,  STATUS=’  NEW’ ,  FORM=’  UNFORMAHED’ ) 

C -  READ  BLOCK  PARAMETERS 

READ(M1,1000)  IN 
1000  FORMAT (3IS) 

IF(IN(1),N£.0)  NRES=1 
NLBL^IN(2) 

NBLM=IN(3) 
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f'J  C) 


IF(NSV''*I.EQ.l)  SO  TO  1£0 
DO  110  IK=1,NEQ 
C1=VKGD(IK) 

C2=VF5(IK)/Cl 
V^G( IK) =Cc 

no  EN'ERG=E.NERG+C1*C2*C2 

L 

-  SOLVE  DIPGONAL  SYSTEM 

lEO  IK=NEQ+1 

JHK1=KLD(IK) 

130  !K=rK-l 

IF{NSYM.EQ.l)  VFG(IK)  =VFG (IK)/VKGD<}K) 

IFdK.EQ.l)  RETURN 

C1=VF6(1K) 

JHK=«LD(1K) 

JBK=JHK1-1 

!F(JHK.GT.JBK)GO  TO  150 
IJ=rK-JBK+JHK-l 
DO  lAO  JCK=JHK,JBK 
VFG ( IJ ) =VFS ( I J ) - VKGS ( JCK ) *C1 
140  1J=IJ+1 

150  JHK1=JH»< 

GO  TO  130 
END 

RJNCTION  SCflL(X,Y,N) 


IfWER  PRODUCT  OF  VECTORS  X  AND  Y  CF  LENGTH  N 
(FIFCTION  TO  BE  WRIHEN  EVENTUALLY  IN  ASSEMBLER) 


IMPLICIT  REALt8iA-H,0-Z) 
DIMENSION  X(»),Y(») 

DATA  ZERO/O.ODO/ 

SCAL=ZERO 
DO  10  1=1, N 
10  SCAL=SCAL+X(I)*Y(I) 
RETURN 


yRITE(^5i  (v^EEil),  >1, 

:p(Nsy''.£E. :-.,ve. 
CON’INjE 

IF(!SOl.N£.  1)  RrbR\ 


-  SOLVE  DISGCNfL  SVS'E'' 

IF(NSYI*I.EiJ.:!  GC  *G  lEO 
DO  no  IK=1,NEQ 
C1=VKGD(IK) 
C2=VFG(!K)/C1 
VF3(i:<)=C2 

ENERG=EN£R3+C:*CE*CE 


—  SOLVE  l;:EE  'R:A\Gu'.AR  SYS'EV 

:b=nbl« 

IKO=HEB(!B)-l 

JO=Kn)(IKO+l)-l 

IK=NEQ+1 

JHK1=KLD(IK)-J0 

—  FOR  EVERY  EELATXN  -RO?!  'iEO  "C  1 
IX=IK-1 

—  READ  A  B.GCK  IF  REOJIRED 
IF(IK.NE.IKO)  30  ’'0  135 
BACKSPACE  !r5 

IFIN'SYN.EQ.  1)  BACKSPACE  W5 
R£AD(M5)  (VKGS(:),>l,\-5.-) 

IF(NSYM.E3.1)  READCIE;  ;vKGI!I},>;,\LE.; 
BACKSPACE  (*5 

IFINSYM.EQ.l;  BACKSPACE  "C 

IB=IB-1 

IK0=KEB(IB)-1 

jo=kld(:ko+i)-; 

JHK1=KLD{IK^1)-J0 

—  WDIFY  Hi  lNKNCaN  vEl.lR 

IF (NSYW.  EQ. 1 )  VFG ( IK) =v"G ( IK) /VHGC .  >. ; 

IFdK.EQ.l)  RE’uRN 

C1=VFG(IK) 

J’HK=KLD(IK)-JO 

JBK=JHK1-1 

IF(JHK.GT.JBK)GO  '0  150 

IJ=lK-JBH+JhK-l 

DO  140  jc:k=;hk,:bk 

VF6 ( IJ) =VFG ( IJ) -VKG3 iJCKl  ♦Cl 

IJ=IJ+1 

JHKl=JriK 

GO  TO  130 

END 


TO  CALL  BLGCT  'NLI'r 
TO  SOLVE  A  STEADt  '.OV  .iNhAH 


IMPLICIT  ,REflL*a(fi-^,j-2J 
CHfiRflCTER*4  TBL 

COWCN/ELEM/MLLl  (4) ,  ME,  ''SOl-  IL, 

COMMON/ fiSSE/NSYM,  NKG,  N'KE,  ND:.£ 

COMMON/ RE30/NEQ,  NEI^.R;;') 

COMMON/NlIN/EPSDl,  /norm,  C/EOA,  XPfiS,  :2;AS,  CPASO, 

1  ITER,  IMETH 

COMMON/ES/M,  MR, M?, /E,  M3,  ''’4,  .“DbM/Y  IS; 

commcw/loc/lccrg,  ldlnc,  :.xec,  '.PfiNG.  .tree, 

1  LPRNE,  LPREE,  lDLE,  LKE,  _'E,  -vSw,  _./5I,  j,  _.-,ES,  _0- 
£  L]XJ«MY(5) 

COMMON  Vfl(l) 

DIMENSION  TBL(10),IN(£),XINi3) 

THIS  IS  COMMENTED  OUT  BECAUSE  OF  AN  MS  -CR'^-L  CCv" 
BUG  WHICH  WI^  NOT  INITIALIZE  t-AR3E  ARRAYS.  '-IE 
IS  NOW  INITIALIZED  BY  A  CAlL  ’0  A  DUMMY  SUBROU-ILE 
INIT3L  WHICH  EXISTS  SOLELY  TO  INITIALIZE  THIS  ARRAY 

DATA  TBL/'KGS  ’,’KGD  ',’KGI  ’,’=3  ',’HE  ',’RE 

♦  ’DLG  ',’ME  ’/ 

HERE  IS  THE  CALL  TO  GET  AROUND  Ti£  COMOI.ER  BUG 
CALL  INITBL(TBL,’NLIN’) 

ALL  OF  THIS  IS  TO  GET  AROUND  THE  MICROSOFT 
COMPILER  BUG 


IF(Ml.EQ.O)  M1=MR 
IF(M2.E3.0)  M£=M£ 

WRITE (MP, 2000)  M 

FORMAT!//'  NON  LLNEAR  SOLU’ICN  (M=’ ,  12, ' )' /1X,£3'' =’ )  j 

—  TO  ALLOCATE  SPACE 

IF(LKGS.£Q.:)  CAL.  EE3ACE(NK3, 1, *BL(1) ,L<GS; 

IF(LKGD.EQ.l)  CPLi.  ESPACEINEC,  1,*BL(2),L-<GD) 
IFlNSYM.EQ.l.AND.LRGI.EO.  I)  CAL-  ESPACEvNYo,  ;,T3^!3),.Y3I) 
IF(LFG.EQ.l)  CALL  ESPACE  'NEC,  It’S'. !4),LF3) 

IFfLKE.EQ.  1)  CALL  EGOACE(NHE,  I, "SL ,5. , .KE' 

IF(LFE.EQ.l)  CALL  ESPACE(M)LE,  l.'BL'EL.FE) 

IFILRES.EQ.l)  CALL  ESPACE ( nEO,  1, 'B. (7) , .::l- 
IFILDLE.EQ. 1)  CALL  ESPPC£!NDLE,l,'PLi3:..j.E; 

IF(LDLG.EQ.l)  CALL  ESDACE ( NEC,  ;,'5L (9), 

IFILME.EQ.  1)  CALL  ESPACE (\K£, 

—  TO  EXECUTE  'HE  BLOC/ 

CALL  EXNL I N  ( W  (LCORG ) ,  VA  ( LDLNC ) ,  VP '  .D I  ,  L  LMO  i , .  S  ( ..L 


1  VP(LLOCE) ,  Vfl(LC':.RE) ,  vP  (.p:*.? 

2  Vfl(LFE) , VPdDLE) , VP (.^,3:' .  v'P 

3  Vfl(LDLG)) 

RETURN 

END 


SIARGE 

$NQFLDflTCfll-S 

SUBfiOJTM  EXSL:N( VCORG, KDLC. VDI^'P, XNEQ, KID. a.DCE, VCCRE, 7-RSZ, 
1  VPREE,  KNE.  WE.  WE,  VFE,  7DLE,  VKGS,  VKGD.  VKGI ,  VFG.  VRE3.  VDL3) 


C  TO  EXECUTE  BLOCK  'M’N' 

C  TO  SOLVE  P  STEADY  viON  L>EflR  ?R0BL£Y 


IMPLICIT  REflL*a(fl-R,0-Z) 

COlWN/RESO/NEQ,  NFILLR  (£) 

CQMNON/COMD/NCLT, NCLZ,  NCLNZ 
CWQN/flSSE/NSYM,  IMFILLRiG) 

COfWON/YLIN/EPSDL,  XNGRK,  OYi'jP,  XPAS,  D?viS,  OyPSv,  '?fiS,  ,'il .  .iR, 

1  ITER,  IMETH 

COMNON/ES/M,  MR,  /Q,  M2,  "j,  MA,  MD^MW  :fc) 

DIMENSION  VCQRG(») , KDLNC (♦! , VDIM?(«) , KSEQi*) ,KLD:«) , KLCCEi*) . 

1  VCORE(») ,  VPRN£(*) ,  VPR££l*i ,  <NEt*) ,  vKE(*; ,  v>'E(*i ,  v-EI*) ,  yD;.E  , 

2  VKGS(*),VKGD(*),VKG!(»),VFG(x),VRES;»),V0L3;»; 

DATA  ZERO/O.DO/ 

DPASO=ZERO 
XPAS=ZERO 
IPAS=0 

C - ready  INITIAL  D.O.F.  ON  FILE  ,M3 

IF(M3.EQ.O)  GO  TO  10 
REWIND  M3 

READ(«3)  (VDL3(I),I=1,NEQ) 

C - READ  A  :»RD  DEFINING  P  SET  OF  IDENTICAL  ST! 

10  READ(M1,1000)  DPAS,  It,  IE,  :3,X!,XE' 

1000  FORMAT (FIO.0, 315, 2F10.C)) 

IFIDPAS.EO.ZETOl  GO  ’0  1^0 
IF(Il.GLO)  NPPS^i; 

IF(I2.GT.O)  NITER=I2 
IFdG.GT.O)  IMETH=I3 
IFIXl.GT.ZERO)  Z?SDl=X: 

IF(X2.GT,ZERG)  C!«EGA=«£ 

C 

C - LOOP  OVER  PLL  STE-S 

C 

DO  130  IP=1,NPAS 
IPAS=IPAS+1 
XPAS=XPAS+DPAS 

WRITE (MP, 2000)  :?AS,DPAS,  XPPS.M'ER,  :''E"H,E2;D 
2000  F0RMAT(/1X,13(’-’),'S’HP  Vj'^tER  'IPAS'. ,  15/7 
1  lAX.'lNCREMEN’' 


2  14X,’"G'!'ftL  -Evi- 

3  iAX,’NL¥BZ^ 

4  l4X,'METhOD  vyBE’  ::rr-:  ;• .  I: 

5  14X,’ TOLERANCE  .E;:-C-|=' 

6  14X,’0VER  RELAXATION  -PrZR 
C 

C - LOOP  OVER  EQUILIBRIOM  ITERATIONS 

C 

DO  no  ITER=1, NITER 

C -  CHOOSE  THE  METHOD 

IF(IMETH.3T.3)  GO  TO  20 

C - NEWTON  ry?E  METf-ODS 

CALL  NEWTON! VCORS, XDLNC, VDINP, KNEQ, KLD, KLOCE, VCORi, VPRNE, V 
1  KNE,  VKE,  VME,  VEE,  VDLE,  VK5S,  VKGD,  VXSI,  VFG.  VRES,  VDLS) 

GO  TO  100 

C -  OTHER  METHODS  . 

20  CONTINUE 

URITE(MP,2010)  IMETH 

2010  FORMAT!’  ♦♦ERROR,  METHOD:’ , '3, '  UNK.NCWN’) 

STOP 

C - COMPUTE  THE  ?(CRM 

100  CALL  NORME !'NEI3, VRES, VDLS,  XNuRM) 

IF!M.GT.O)  WRITE !MP,  2020)  :TER,XNCR'’I 
2020  F0R«AT!5X,’ ITERATION  (ITER) , 13, '  NORM  !XN0RM)=’,E12.5) 
IF!M,  GE.2)  CALL  PRSOL!XDL.NC,  VC0S3,  VDItPiKNEO,  VDuS) 
IF!XNORM.LE.EPSDL)  GO  TO  120 
no  CONTINUE 
ITER=NITER 

C - END  OR  STEP 

120  DPAS0=DPAS 

WRITE !MP, 2030)  ITER, NITER 

2030  F0RMAT!/10X,I4,’  PERFORMED  ITERATIONS  OVER’ ,  I*/ 

IF!«,LT.£)  CfLt  ?RS0nXDLNC,vCGRG,VDIMP,K\Ej,VD_3) 

130  CONTINUE 
BO  TO  10 

C - SAVE  7HE  SOLUTION  ON  FILE  r4 

140  IF(M4.NE.O)  UR1TE(M4)  IVDLGd),  :=i,NEC) 

RETURN 

END 
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SUBSOlj \Ew’CN(vwO^'5,  vEE*-,  -  '.II,  -  .1,  ■  _3II,  .Elri, ,  .i, 

1  VPREE,  KNE,  VKE,  V''E,  vfE,  vDlE,  vKES,  .-El,  'v -EE.  VE.E) 

C  ALGORITHM  FOR  fJBJTGN-RfiPHSCN  'Y?E  ^E-CEE 
0  :METH,£Q.1  compote  K  S'  each  TESfiTIOY 
C  IMETH.EQ.2  K  IS  CQNS'Ar 

C  IMETK.  EQ.  3  RECOiMPOTE  K  AT  THE  5E3IN'.I.\&  3''  r.-iC-  S'E^ 

IMPLICIT  REAL»a(ft-ri,Q-I) 

COMMON/flSSE/NSYM, HKG,  MFILLR (3) 

COMMON/R£SQ/N£iJ,NFIu_R(2) 

COMMON/NLIN/EPSCL,  X.SQRMiC.MEGA,  XPAS, CPAS, DPASC, .‘'.PAS, 

1  ITER,  IKETH 

COfWON/ES/M,  MR,  MP,  MDu.MMY  (10) 

DIME^^SION  VCORG(*) , KDLnC(  +  ' ,  vDlMP(«),,<ME3i*) ,  H-Di*; ,  .\w3CE! ♦; , 

1  VCQRE  ( * ) ,  VPRNE  ( * ) ,  VPREE  i  H ,  K.\£  ( ♦ ) ,  'Vy.E  ( ♦ ) ,  V'«£  ( ♦ ; ,  v- E !  ♦ ) ,  VO.E ; » 1 , 

2  VKGS(*) ,  VKSD(*) ,  YKSI  (*) ,  Y^Gl*) ,  VRESv*;  ,'vD..3!*) 

DATA  ZERO/O.DO/,UN/1.DO/ 

C -  DECIDE  IF  GLOBAL  MATRIX  IS  '0  REASSEMBLED 

IKT=0 

IFdMETH.EQ.l)  GO  TO  10 
IFdPAS.EQ.  l.AND.  ITER.EQ.l)  SO  TO  10 
IFdMETH.cG.S.WYD.ITER.EO.l)  GO  TO  10 
GO  TO  20 
10  IKT=1 

C -  INITIALIZE  GLOBft.  MATRIX  *0  ZERO  IF  IT  IS  TO  BE  ASSEMBLED 

20  IFdKT.EQ.OlGO  30 
CALL  IN:T(Z£R0,NKG,VKGS) 

CALL  INIT(ZERO,^£G,WGD) 

IFlNSYM.EQ.l)  CAL.  !MT(ZERO,NKG, VX8I) 

C - STORE  LOADS  IN  THE  RESIOL'AL  LECTOR 

30  CALL  MAJIXPAS,  ZERO, 'JEQ.VRG.VRESi 

C -  ASSEMBLE  RESIDUAL  VEC'QR,  AND  EVENTUA..Y  --E  GLOBAL  -ATRIX 

CALL  ASNBTTdKT, KLD,  VDIMO,  ■(■.CCE,  vCCRE,  V^RvE,  v-REE,  <■<, V<E,  VFE, 

1  VKGS,VKGD,VKGI,VDLG,VDLE,vRES) 

C - SOLVE 

CALL  SOL(VKGS,VKGD,VKGI,VRES,K'_D,NEj,’'j,  ir,  1,  '.5y'',E>,E-S 
IFdKT.EQ.l.AND.M.GT.l)  CALL  PRPV*5':V'-<GD) 

C - UPDATE  THE  SOLUTIttN 

CALL  MAJ  (OMEGA,  L'N,NEQ,VRES,VOLG) 

RETURN 

END 
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SUBRGU^IfC  AS\tWi  (n’.KJ,','";*:', 
1  KNE,  VKE,  V'^E,  VKGS,  VKGD,  vKGI.  7-G 


TO  ASSEMBLE  THE  RESIDUALS  A\D 
WHILE  looping  over  ‘^HE  E.E.'lE'rS 
IFOR  THE  NEWTON-RAArSCN  'lE'^-GD^ 


IMPLICIT  REAL*8(A-H,Q-Z) 

Comw/EIM/NELT,  NTPE,  NG.RE,  me,  NIDENT,  Mie'LL 
COlWON/ASSE/NSYK,  MFILLR(3) 

CO»!ON/RESO/N£Q,SFiLLR(E) 

conm(w/rgdt/i£.,  itpe,  itpe:,  igre,  idle,  ice,  iprne,  i^ree,  ime: 

1  ,ICOD,NiJLL(3) 

COMMON/ES/M,  MR,  MP,  M 1 ,  .Mi,  MDLi.MMY  (3; 

DIMENSION  KLD(*),VDIM=(*),KLDOE(*),vtORE(»),V?RS'E(*),VPR! 
1  KNE  (♦) ,  VKE  (♦) ,  y“r  (♦)  I  VKGS  (♦/ ,  VKbB  (*) ,  VKdl  (*) ,  v.-G  ;*) ,  VDi 
a  VRESU) 


-  REWIND  ELEMENT  FILE  M2 
REWIND  M2 

-  LOOP  OVER  THE  ELEMENTS 
DO  40  I£=1,NE.T 

-  READ  AN  ELEMENT 

CALL  RDEl£M (M2,  KLGCE,  VCORE,  VPRNE,  VPREE,  KNE) 

-  EVALUATE  INTERPCLA^’IDN  FUNCTIONS  IF  REQUIRED 
IFdTPE.EQ.ITPEl)  30  'G  IT, 

IC0D=2 

CALL  EL£,MU( VCORE,  VPRNE,  VP’EE,  vDlE,  VKE,  VCE) 

-  FIND  THE  D.O.F.  OF  ’'(lE  ELEMENT  FROM  V^G 
CALL  OLELM (KLGCE, VFG,  VDIMR, VDlE) 

--  CALCULATE  ELEMENT  RESIDUALS  AND  >ANGE  "rEIR  SIGN 
ICOD=B 

CAa  ElEMLB (VCORE,  VORNE,  yPJEE,  VD.£,  VKE,  V-E; 

DO  20  1=1,  IDLE 
VFE(I)=-VFE(I) 

-  EVALUATE  GLOBAL  MATRIX 
IF(IKT.EQ.O)  GO  TO  30 
IC0D=4 

CALL  ELEMLBI  VCORE,  VPRhE,  VPREE,  VDLE,  VKE,  V,"E; 

-  ASSEMBLE  THE  RESIDLALS  AND  >E  GLOBAL  ‘'ATRIX 

CALL  ASSELdKT,  1,  IDLE, \SY'>',K_CCE,K_D, VKE, V-E, VKGS, V-,GD,V< 
ITPE1=ITPE 


SlBRlLTINE  INIT()(.M,Vi 


:  INITIALIZE  'VEC'DR  V  "G  VALUE  X 

IMPLICIT  REAL*8lA-H,0-Z; 
DlfCNSION  V(*i 

DO  10  1=1, N 
10  V(1)=X 

RETURN 
END 


subroutine  MAJiXl,Xa,N,Vl,V£) 


C  EXECUTE  THE  VECTOR  GAERATION:  V£=X1*V:  t  XEtVS 

C  X1,X2:SCALAR3  VI, VE; VECTORS 

IMPLICIT  R£AL*8(A-W,Q-Z) 

DIICNSIDN  V1{*),V2!*) 

DO  10  1=1, N 

10  V2(I)=Xl»Vl(I)tX2*V2!I) 

RETURN 

END 


SUBROUTINE  N0RM£(N,VD£L,V,XN0R:'') 


C  COMPUTE  THE  LENGTHS  RATIO  OF  VECTORS  VDE.  AND  V 

IMPLICIT  REAL*a(A-H,0-Z) 

DIMENSION  '•-T)£L(*),V(*) 

DATA  ZERO/0. DO/, UN/1. DO/, FAC/1. 0-5/ 
SQRT(X)=DSQRT(X! 

C1=ZER0 

C2=ZER0 

DO  10  1=1, N 

Cl=Cl+VDeL(I)*VDEL(I) 

10  C2=C2+V(I)»V(I) 

C=Cl«fAC 

IF(C2.LE.C)  C2=uN 
XN0RM=SQRT(C1/Ci) 

RETURN 

END 


So'BROUt:\E 
C  TO  CALL  BLOCK 

C  TO  SOLVE  AN  LN3TEADV  ’SOE..E."'  .-I'-.EAT  O'  '.C^) 

IMPLICIT  REAL*a(A-H,C-Z) 

CHflRACTES«4  ’BL 
COWaN/ELEM/VLLL(Al  .ME, 

COMMON/ ASSE/NSYM, NXG, NKE, NDLE 
COWON/RESO/NEG,  .NrlLLRiS) 

COmON/NLIN/ErSOL,  XNOSM,  OMcGA,  XPA3,  OAA3,  DPA30,  \-A5,  IPhS,  •I'ET, 

1  ITER,  IMETH 

COMMON/ES/M,  MR,MP,  Ml,  ME,  rO,  ''4,'-'Du,’'''V  ;0; 

COMMON/LOC/LCQRG,  IDLNC,  LNEG,  .0 1'^P,  ^.^RNO,  LPRE3.  .LD,  .LGCE,  .CORE,  .\E, 
1  LPRNE,  LPREE,  LDLE,  LKE,  L-E,  i-HGS,  i.',3D,  -\3I,  _-0,  !.RE£,  _0_E,  _'^E, 

1  LDLEO,LDLGO,LFGO 
COMMON  VA(1) 

DIMENSION  TBL(13),IN(£),XIN(3) 

C+++  ■^HIS  IS  COMMENTED  OLT  BECAUSE  OF  AN  M3  -GR'RAN  OC'-P’.ER 

C+++  BUG  WHICH  WILL  NO"  INFIAuIZE  J.ARGE  ARRAYS.  '-IS  A',-;. 

C+++  IS  NOW  INITIALIZED  BY  A  CALL  TQ  A  DLMMV  Si-BROUTINE 
C+-H-  INITBL  WHICH  EXISTS  SO.ELY  '0  INIT!A;.:ZE  'HIS  ARRA^ 

C 

C  DATA  TBL/'KGS  ',’«;3D  ’,’KG:  ',’FG  ',’KE  ’,'-E  ’.’RES’, 

C  »  'DLE  ’,’DLG  ’,’ME  ' , ’ DLEO’ , ’ DLGO’ , ’ R-GO  ’ / 

C 

C  HERE  IS  THE  CALL  '0  GET  AROUND  r-iP  CCmPI.ER  PlG 

CALL  INITBL (TBL,’ TEMP’) 

C 

C+>+  ALL  OF  THIS  IS  TO  GET  AROUND  THE  MICRGSOF' 

C^++  COMPILER  BUG 
C 

IF(Ml.EQ.O)  M1=MR 
IF (ME. ED. 0)  M£=ME 
WRITE  (MR,EO(X))  M 

£000  FORMAT(//’  UNSTEADY  SOLUTION  ()"=’,:£,’)’ /1X,£3(’=' 1 ) 

C -  TO  ALLOCATE  SPACE 

Ir(LKGS.EQ.l)  CAL-  ESPACE(NK3,  :,TBL(i), -KGS) 

IF(UGD.EQ.l)  CAlL  ESPACE'NEO,  l,TBL(E),LKGD) 
IFINSYM.EQ.l.AND.-KGI.EQ.  I)  CAL_  ESPACE(NK3,  1,TBL;3),lKGI) 
IF(LFG.EQ.l)  CALL  E3PACE  (NE(3,  1.'Pl'4),..FG) 

IF(LKE.EQ.  1)  CAL-  E3PAC£(NKE,  :,'BL(5),.',E: 

IFILFE.EQ.  1)  CAL-  £SPACE:nD-E,  1,'5L.6:.--:; 

IF(LRES.EQ.I)  call  ESPACE;lE0,;,'3L'7),-TES) 

!F(LDLE.EQ.I)  CALL  ESPAC£(NDLE. ;, 'P-(8),-DLE; 

IF (LDLG.  ED.  1 )  CALL  ESPACE(N£G,  l,TB_0),_D_j) 

IFILME.EQ. 1)  CALL  ESPOCE(NK£, :,'S-(10),LtE) 

IFILDLEO.EQ.  1)  CAL.  ESPACEinD'-E,  l,'B-(:i;,_D.EO) 

IFILDLGO.EQ.  1)  CALL  ESPACEiNEO,  ;,'£_( I O.uDLSOi 
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IF (LFSO. £Q.  1 )  CS'! _ 'Ej,'.,  ■ 

C -  TO  EXECUTE  *>’£  ElCCK 

CALL  EXTE»«P(va:i.C0'3i,vAi.D:-'.c  , -■5..;;''-,  . 

1  VA(LLCC£),VP<LCOSE),VA(.PF\E).:t:.!;'EE!.vi’.'E  .v-  _-E  .  .'E  , 

£  VA(LFE),Vfl(-C-£),W(LC’S),yC  -,-;G:',VA!. -.3::,  .-EE  , 

3  VA(LDLG),VA(LDLEO),VA(LDLGO,',vP'l'^3-ii  • 

RETURN 

END 


SUBROUTINE  EXTEMP ('VCCRG,  ED.sC,  VDI'^c.  .  .EC,  '.I,  '-EEE,  VEE-E.  .  =  -'.E, 

1  VPREE,  KNE,  VKE,  VME,  '^fE,  VDlE,  »-<3S,  VKCO,  V-3.  ,  =£3,  vD.:-, 

2  VDLEO,  VDLGO,  't^  jO  1 

C  TO  EXECUTE  BLDCK  ' TFwp' 

C  TO  SOLVE  mN  unsteady  PRGS^’'  (.IyEAR  CR  VC'i 

C======================r==========r===r====r=rr==rr=r===r=.=r=====.. 

IMPLICIT  REAL*8(fl-H,C-Z) 

CO«MCN/RESQ/N£2,NFILLR(2) 

CO»ION/CCND/NClT,  NClZ,  NCLNZ 
COMMON/ASSE/NSYM,  «F:LLR(3) 

COfflON/NLIN/tPSDL,  XNQRM,  OMEGA,  XPAS, DPAS,  DPASO,  NPAS,  I'AE,  M'ER, 

1  ITER,  INETH 

COMMCN/ES/M,  MR,  MP,  Ml,  ME,  "3,  MA, MDUMMY ;Gi 

DIMENSION  VCORGI*) ,  KDLNC  (*! ,  v'DIMP(») ,  KNEOI*) ,  KLD(*) ,  KLCCE  >, , 

1  VCORE  ( ♦ ) ,  VPRNE  ( ♦ ) ,  VPREE  ( * ) ,  R yE  1 1 ) ,  vKE  » ♦  i ,  VME  ,  ♦ ,  vDLE  ^ 

2  VKGS  ( ♦ ) ,  VKGD  ( * ) ,  VKG I  ( * ) ,  VFG  ( ♦  i ,  VREE I  ♦ ; ,  VDL3 ! » :■ ,  VD.EO  ( ♦ ) , 

3  VDLSO(#),VFGO(») 

DATA  ZERO/O.DO/,UN/l.DO/ 

C - 

DPASO=ZERO 

XPAS=Z£RO 

IPAS=0 

C - READ  INITIAL  D.O.F,  ON  -l^E 

IF(M3.EQ.C)  GO  TO  5 
REMIND  H3 

READ(M3)  (VDuG(;),>l,NEQ) 

CALL  MAJ (UN, ZERC,NEQ,VDLG, VDLGO) 

C - SAVE  T-E  REFERENCE  .CAD  CCYDI’IONS 

5  CALL  MAJ (UN, ZERO, NEC. vPG.VFGO) 

Q -  RCflD  fl  CARD  DE-;n;nG  a  SE’  CF  identical  STEPS 

10  READ(M1,1000)  DPAS, I:, IE, 13, X., XE 

1000  FORMAT(F10.0,3:5,EF!0,Oi 
IF (DPAS. EQ. ZERO)  GO  ’0  lAO 
IFdl.G’.O)  NPAS^I! 

IFdE.GT.O)  N’TER=:E 
IFd3.GT.O)  ;mE’H=I3 
IF(Xl.GT.ZERO)  EPSIM.^Xl 
IF(X2.N€.ZER0)  :^E3fi=!E 
C 

C - LOOP  OVER  '-E  3TE-G 
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DC  130  IP=!,N?CiS 
Cfla  INIT(ZERQ,?€ii,v-S> 
IPflS=!PflS+l 
XPftS=KPftS+DPfiS 


uRiT£('«p,iooo)  i3£i3,D?Rs,  VrCts,  yr~ 
2000  F0RMflT(/lX,;3(’-’),’5T£P  VbER 

1  l-X.’I-CREMEV 

2  lAX,  ’  TCP.  .EVtL 

3  lAX,’ NUMBER  C-  ITERriDNS 


4  14X,’ METHOD  NUMBER 

5  14X, '  T(Xf  RANGE 

6  14X,’ COEFFICIENT  ALPHA 
C 

C -  LOOP  OVER  EQUILIBRIUM  ITERATIuNS 


Z=SDw,C''E:'A 

in 

,CPS}=-. 

!XP51=' 

;'<rER)=' 

(IMET^) i’ 
(EPSSL)^' 
■'jMe:-a)=' 


DO  no  ITER=1, NITER 

C - CHOOSE  THE  MT’KjD 

IF (IMETH.S''. 3)  GO  20 
C - ELLER  TYPE  METHODS 

CALi.  EULER (VCQRG,  KDLNC, VD:'«3,  KNEQ,  klD,  KLOCE, VCORE, V?R\E, VPREE, 

1  KNE,  VKE,  VME,  VFE,  vDLE,  VKGS,  VKGD,  VHG 1,  VFG,  VRES,  VDLG, 

2  VDLE0,VDLG0,VF30) 

GO  TO  100 

C - OTHER  methods . 

20  CONTINUE 

WRITE(MP,2010)  IMETH 

2010  FORMAK’  m  ERROR,  METHOD:’, 13,’  UNK\CW’ ; 

STOP 

C - COMPUTE  THE  NORM 

100  CALL  NCRIMEINEQ,  VRES.  VDLG,  XNGRM) 

IFIM.GT.O)  4RITE(M?,2'0£0)  I^R.XNDRM 
2020  F0R«AT(5X,’nERAT:CN  'TER: ,  13, ’  \GRM  (XNCRIM)=',E;2.C; 
IF(M.GE,2)  CALL  PRSGi.lKD.-'vC.VCCRG.  VCI'^^, ,:,5) 
IFaNORM.LE.EPSDL)  GO  P  120 
no  CONTINUE 

0 - END  OF  STEP 

120  DPAS0=DPAS 

CALL  MAJ (UN,  ZERO, NEQ, VDlG, VDLGO) 

CALL  PRSOL (KDlNC, VCCRG, VDIMD, <nEQ, VCLS; 

130  CONTINUE 
GO  TO  10 

C - SAVE  ’’HE  SOLJTICN  CN  -I'.2 

140  IFdlA.NE.O)  HRnE(''4)  (VDlG ill,  1=1, NEi) 

RETURN 

END 


/O  <r»  »  •  .  «  ri7  f*» 


Cl:' 


1  vpREE,KNE,'/“£.  jr£,  PI.  y^E.v'REs, 

E  VDLEO, VDLGO, v -EC i 

C  flLGORITH*  FOR  ELlER  '^VPE  “E'^’-OOS  EX--"!*  OR 

C  ACCORDING  'C  OMEGA)  -OR  JNI.PR  OR  \0\  .:i€AR  P-Or.I.-'S. 

C  THE  NON  linear  PRCBLE.’"  IE  SOLVED  BY  A  nEW’CN-RS'''S:-. 

C  METHOD 

C  IMETn. £Q,  1  STANDARD  \E'i»i'*’0N”RA— bOv 

C  IMETH.EQ.2  K  IS  OCN'STAN’ 

C  IMETn.  EQ.  3  H  IS  RECOMPU’^ED  A'  TnE  SEGINsTiG  OF  EAu.-  S’E.- 


IMPLICIT  REAl^SiA — ^,u-Z) 

COMMCN/ASS£/^iSYM,  NK5,  MFIlLR  (Sj 
COMMON/ RESO / NED,  wl ... R ( 3 ; 

COWON/NlI  N/i?SD'_,  JiNCn’l,  jMEjA,  <PA5,  DPA5,  DPASO,  N.-n'o,  .-'Ab,.'.!.!-, 
1  ITER.IME’H 

COMMON/ES/M,  MR,  HP,  MCu-'r'r !  [.j; 

DIftNSION  '/CORG ,  KDlNC  *1 ,  »DImP(»)  ,  YNE3 ( ♦) ,  <.D ( ♦) ,  (♦) , 

1  'VCQRE  (♦) ,  VPRNE  (t I ,  VP'JEE  (*) ,  KNE  I») ,  VKE  (♦) ,  VI'S  ,  V-E , 

2  VDLE !*) ,  VKGS (*) ,  VHGDI*) ,  VKEI  >) ,  v-3(*i ,  ■< RESi*; ,  vDLG  , 

3  VDL£0(*),VDLGO(*),V=^GO(*! 

DATA  ZERO/O.DO/,aN/l.DO/ 

C -  DECIDE  IF  GLOBAL  MATRIX  IS  'O  BE  ’EASEEMBLED 

IKT=0 

IFdMETH.EQ.  1)  30  TO  10 
IFIDPAS.NE.DPASO.AND.I'^R.EQ.;;  GO  ^0  10 
IF(IME^H,EQ.3.AND.  ITER.EQ.l)  30  TO  10 
SO  TO  20 
10  IKTM 

—  INITIALIZE  GLOSAl  mO'six  tq  ZERO  I"  NEOESSARV 
IFdRT.EQ.O)  GO  TO  30 
CPU  INIT(Z£RO,'KG,v;^GSi 
CALL  INIT(ZERQ,NEa.V'<GD) 

IFINSYM.EQ.  1)  CA-l  INd dERO,  Nr\5,  VYGI) 

C -  ASSEMBLE  RESIDLALS  AND  G.OBPL  mA'RIX  IF  REQUIRED 

30  CALL  MAJ (UN,  ZERO. NE3,  VFGO,VRE5, 

CALL  ASEULRdHT,  VCORG,  KDLNC,  VDIHP.  KNEQ,  -^lD,  H.OCE,  VCCRE,  VPR\E, 

1  VPREE,  KNE,  VKE,  VME,  VFE,  VDLE,  VHGS,  VV.GD,  VHGI .  V-G,  v -E3,  VO.O-, 

2  VDLEO, ’VDLGO.'VFGO) 

Cl^UN 

IFdTER.GT.l)  C1=C1-C.M£C’A 
DO  W  1  =  1,  NEO 

40  VRES ( I ) =DPAS* ' VRES ( I ) -:  I  ♦V-  G  d i ) 

C - SOLVE 

CALL  SOL (VRGS.VKSD.  VKGI,  VRES,  ClD,  '.£0, ’•P,  IXT, !,  mSm^.E^ERG 

C - UPDATE  THE  SOLITIDN 

CALL  MAJ{UN,LN,NE(3,VRES,VDU5; 

RETURN 

t:id 


Subroutine  ssejir (In',  v'cc-s, 

1  VPRNE,  VPREE,  kNE,  VKE,  »”'*£.  .’'c,  vO^E.  NnEE.  VnEZ.  .  -1-2, 

2  VDlG,  VDLEO,  Vij^.30,  V- SO) 

C  TO  ASSEMBLE  T’-E  RESIX'ALS  ^ND  '-'E  GLGBPL  ‘'CTRIx  I'MS. 
C  WHILE  tOCPlNb  SVER  TI-E  E_E'*'£N’'S  i-SR  E-.ER  x-S'-::: 


implicit  REAL*3ifl-H, S-I; 

COWON/ELEM/nElT,  :NNa,  HTPE,  NGRE,  T£,  MEEN',  MNL.- 
COWON/flSSE/NSYM,  MFI.LR  (3) 

COMWN/ RESO/!^C,  NF I  llR  ;  2  i 

COMMON/ RGDT/ III,  I'^,  I'-El,  IGRE,  IDLE,  ICE,  IPRNE,  IPREl,  IClj,  I-u 
1  . ICOD,NULl(3) 

COMMON/NLIN/EPSDL,  i.NCRM,  S'^EGA,  O-AS,  D-P30,  -•'AS, 

:  ITER,  IME^H 

COMMON/ES/M,  MR,  MP,  Ml,  ME,  ’'DLx'Mv  (Si 

DIMENSION  'v€ORG(»l,f<DLNC(*),VDIx-?;»i,ANEi:^*),'.LD>:.r._;CE(+  , 

1  N‘C0RE(*),VPRNE(»),VPREE(*),RNE(*),'»-;EU),  v'-Ei»i,vj_E'*), 

■2  VKGS ( ♦ ) ,  VKGD ' « ) ,  VKG I  ( * .' ,  VFG  ( ♦) ,  ORES  ( *) ,  vO^G  ,  .  D-EIi  ( *) , 

3  VDLoO(*) , VFGO (♦) 

DA"fl  UN/ 1.00/ 

CC=DP«S*GMEGP 

IFE=0 

I.-(ITER.GT.l)  IFE=1 

C - REWIND  ELEMENT  -ILE  (ME) 

REWIND  ME 

C - LOOP  OVER  THE  ELEMEN'3 

DO  30  IE=1,N£LT 

C - READ  AN  aEMENT 

CALL  RD£LEM(mE, /^OCl, VCuRE,  V?»sE,  <PRiE,  nNE) 

C - EVALUAx-E  INTERPG.ATICn  aSC’IONS  IF  REOUIRED 

IF( ITPE. £9. I’PEl )  GO  "0  IV 
IC0D=2 

CALL  ELEMLB(VCORE,  VPPNE,  VPREE,  /OlE,  v-.E,  V-E) 

C -  FIND  E^MEfJT  D.O.F.  fRO.'  .FS 

10  CALL  DLaM(KLCCE,VDLG,VDI''^v'D.Ei 

C -  COMPUTE  'ESIDlAu  R.u. 

ICCD=6 

call  ELEMLB ( VCCRE,  y-RNE,  VA^fs,  vD.E,  V-(E,  y-Z) 

C - CCMP'J^E  "ATRIX  M 

ICC0=5 

CALi.  ElEMLB  i  VCCRE,  yA3\£,  (/FREE,  /DlE,  .  ■*£,  V-Z 

C - COMPUTE  MATRIX  S  I"  ^EOliaD 

IF  (IKT.  E9.  ,  I  GO  ’’■j  15 
:C0D=3 

CALL  £L£MLB('yC'-RE,  ■■'^EE,  v'L-l,  v/l,  v-E 

C - RESIDL’ALS  CF  "-£  -IRS"  rEFR"i;N  In  EAE-  S'E^  .INFA-I 

15  IF'IFER.GT.l)  GO  "0  20 

CAlL  ASSE-  (0,  1 ,  I  DlE,  NjY  ■(,  I,  ' .  ■  ;  .  •  1,  .  /L’l,  '''-'J,  y j  . ,  .  -  j/ 


60  TQ  bO 

C - ^E5I!XjAlS 

EC  CALL  0LE^?i(KLCCE.VC^6O.  ;D:'ip,VD.E0; 

DO  30  J=l, IDlE 

VOLE ( I ) = ( VDLEO ( I ) -VDlE ' I ) ; / DPAS 
30  OFE  ( I )  =-ij(«E5A-»'vFE  ( 1 1 

C - PTODLCT  .  'j 

VFE  ( 1 )  =v- E  ( ■ )  *vrE  ( : ;  »’vD'-E  !  i ) 

1 1^1 

DO  50  J=E,  ;D'-E 
J1=J-1 
DO  40  :  = 

11=11+1 

Vf  E  i  1 1  ='vrE !  I )  +VME  (II)  +VD’-E  i  J ; 

40  VFE( J)  ='.'^E iJ)  +VWE CD ♦VD.E  : I  ■ 

II=iI+l 

50  VFE  ( J)  =VFE  ( J)  t  v'>c  Cl)  +vD.E  ■  J ) 

C - 'iflTRIX  *  C^PS. O'Dell,  l 

bO  IFdKT.EQ.  0)  GO  30 
11=0 

DO  70  :=1,IDLE 
DO  70  J=I,:DuE 
n=i:+i 

70  vKE(i;)=vKE(:i)»cc+’vi*E(::) 

C - ftSSEMEiLE  "  £  RESICufiL  AND  '-E 

80  CALL  ASSELilKT,  I-E,  ;ClE,^S'^',  ClCE,:<LD, 

1  VRES) 

IT?EI=ITBE 

RETURN 

END 


A  ~  -  —  *  -  *  -  ■ 


ii 

VaE,  v",V-;35,V-;iD,v<6I, 
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CJ 


DG  GO  ;  = 
vKSiGd; 

caN":'G.E 
DO  30  I  = 
VKSISill 
:aE<53(!) 

Cu,nt;v.e 

^ETOW 

EN'D 


=  'v^SIEi'!!;- 
=  -(E'''iE.:i 

•  ! 

=  .iH5I33 '!  '■ 
=  XEx^iE^:! 


3u5^L'U'"INE  .xii  ■'ic '■  v'KSI ,  X:iX- • 


'H’S  3wE3GL''''.E  EX!3'3  SO-;.’'  ’u  3z~  P  ■’’lE-EEZ-” 

E0?*2I_E3  Boj.  !'^3  Ib  „  In*  '-E 

MASSED  PE  o.  '  Ew  veE**  -‘Nj  ~--z 

SEEN  SiVEN  >E  5"E:E3'E  SnG'.PEGE,  P- 1  EE 

3R0PESI.Y  BY  T'EE  lC''::-Ei.  '-E  i.'-C’.SE3;  IE  PEEIE^: 

BY  DEfAU-T  SINCE  ^EIR  CI'-EnSIENE  O;  nC’  E;:Ez3  E'.n  Ey'EE 

or  STORAGE. 


THIS  SUBROUTINE  IS  CAlLED  BY  S^BROU’INE  MOi  IE 
USED  BY  ELENEN'^  'YPE  E: 


lYPLICr  REAL»8(A-H.Q-2) 


....  IN'^OR.MATIGN  RELATED  '0  '-:£  a  NDDED  RE.-ERENCE  EDUARE  ElEYEX' 
(INEL.EQ.a  NDIN.EQ.i) 

DII^NSIuN  VKSHNDIY*I\E-),KEXA(ND!''tINEL),KDER';ND;y) 

DII^ENSION  VKSI  (  if>,HEXP  (  IB) 

DI'tNSION  VKSIK  1B),XEXPA(  iSi 

intit;a;.ize  t-e  Dorw  arrays 

NODAL  COORDINATES  OF  ’-E  RE^RENCE  E-E'-iEN" 

DATA  VKSi:/-l.DO.-l.DO,  «). DC. -L D<j.  <•;. CO. -1. DO,  +!. DO, *0. 0*0. 

;  ♦l.DO,+l.DO,  +0.00, +1. O'.).  -l.DO.*:.DO,  -1. Do, +0.00' 

YONCf'IAL  EXPONENTS  OF  '“E  PGI'.nnoi'IAL  BASIS.  ’"OX-DEOREE 
DATA  XEXPP/O.O,  ;,0,  0,1,  E,0,  1,1,  0,B.  B,I,  1,3/ 

INITIALIZE  -^HE  REA.  ARRAYS 


DO  10  I  ^  1, 16 
KEXP(i)  =  KEXPPC) 
WSIC)  =  WSIKi; 

continue 

RETURN 

END 
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OJ 


SL'B^'X'InE  •  B'  1,  ''E'  j'l,  V'.S'.i,  ■  .'■~'.2,  ‘l.'.-l 


”-t’5  3EBE-jj''’lVE  E‘'3'b  SC-E-’  -i'  -'E_''.w  f'  ''IE''-.cZ- 
CG‘^^I-£E  EES.  I’’3  PEE-'-EE  Id  j  IM  I-_IZE  rz  25-,^y- 
3C33ED  ftS  aES'E^'EN'E.  ’-■E  DL"^''  -'--'•c  .-.EIEE, 

VKs:33.  f<£x?;;.  •',epee.  pad  -.excze  --.e  ;-ee%  ei.e-.  *-e 
fi”E!Bi.“E  $\G'-PE3E,  -AD  »il_.  EE  I'lI'I-^IZEE 
BY  TriE  uJ^^PI;.EE,  '"-E  5AQ’_-^GE  P'^^-Ib-.AE  .3  -zr.j'r-- 
BY  DE'PLlT  3I'\Ci  Ai-.y  ji^i\SICN3  Cl  ■..•  BY  zs 

G"  STOECGc. 

*■*13  3EEECLYINE  IS  Gml_EC  EY  SuBEQ^-IAE  v_u‘  «-.l-  Id 
:lSED  i^GR  B^ENT  *Y=E  1 


liYPlIc:*  EEflLtaifi— ,Q-Z) 

DI?€.NSIQN  YKSI;  (3),EEY3I  ;3).WSI2  ;i3),AE;<^2  ■  ISf.VHSIZ  (30), 
:  ><EXP3!60) 

DIMENSION  VHSIIli3),KE*Pl!(3),;HS;Ec(:3),AEX3E:i(:£),vH3I33;E0). 
1  KEXP33(60) 

CPflRflC’ERIS'ICS  rOE  1,3  PAD  3  DI'^ENSMAP.  EE^EEE'vCE  E.E''E'rE 

HERE  IS  r-'IE  D'-Y^Y  PRRPY  :Nr:.PuIZA’’IG\ 

DATA  VKS:il/-l.[)O,0.DO,  l.DO/ 
data  KOPii/0, 1,3/ 

DA’A  VKSI32/-1.D0,-1.D0.  «j.D<Ii, -l.DO,  *l,DO.-I.DC,  »:.D(',*O.DC. 
1  +I.DO,  +  ;,DO,  >O.DO, +I.DO.  -I, DO. *1.  DO,  -1. DO, *0.30/ 

DATA  K£XP33/0,0,  1,0,  0,1,  2,0,  1,1,  0,3,  3.1.  1,3/ 

DATA  VKSI33/-1,D0,-:.D0,-;.D0,  ‘O.DO,-i.DO.-l.DO,  . 

1  +1, DO, -1. 00,-1. DO,  ‘•l.DO,*<.'.DO,-l.DO. 

+1.  DO.  +1.  DO.  -1.  D(:,  <-0.  DO,  +1.1X1.  -  A  DO. 

-1.  DO,  +  1.  !Xj,  -1.  W,  -1.  DO,  +0.  DO,  -i.  DO, 

4  -l.DO,-l.DO,+O.DO,  +1,[X>, -I.DO,+0.  DO. 

5  +l.DO,+l.DO,+O.DO,  -l.DO, +l.DO.+<:i.DO, 

6  -l.DO, -l.DO, +1. CO.  +0.D0.-i.D0,+l.  D'). 

7  +l.DO,-l.DO,  +  1.0O,  +l.DO,+O.C<i,+l.DC, 

3  +1.D0,+I.D0.*1.D0.  +O.DO.+1.CO,+1.DO. 

3  -1.0O,+l.DO.+l.DO,  -l.DO,+O.DO,+l.DO/ 

DATA  KEXD33/0, 0,0,  1,0,0,  0,1,0,  0,0,1,  1,1,1, 

1  1,1,0,  0,1,1,  1,0,1,  3,0,0,  0,3,0,  0,0,3, 

2  3,1.0,  3,0,1,  3,1,1,  1.3,0,  0,2,1,  1.3,1, 

3  1,0,2,  0,1,2,  ;,;,3/ 

C  INITIAi.lZE  *-£  EE4L  ORScys 

DO  10  I  =  1,3 
WSIKI)  =  VKSIll  (I) 

HEXPIC)  =  HEXPllC) 

10  CONTINUE 
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JLARGE:  WSIl 
SLARGE:  K£<P1 
tLARGE:  VKSIE 
icARGE:  aEX32 
$LPRf3E;  ■v^^S;3 
$LARGE:  XEXAG 
ILARGE:  v^.S! 

$LARGE:  XE>- 
$LfiRG£: 

*LARSE:  3 
SLfiRGE:  :■ 

$LARGE; 

ILAR6E :  U-o 
ILARGE:  -SI'' 
tLARGE;  t'P’' 
fi.ARGE;  ’TV-" 

ILfiRGE;  MT> 

ILARGE:  ^3 
IIARGE:  E' 

♦LARGE :  !  - 3 ■ zC 

SLE^X  WE  '■'II-IEC-’.EwG.KILLER) 


I  REFER  TO  T-'E  -3 _ a-.5E  LAl'tS  BEGIN 

yiTA  ’isr/’  AS  Dii''*'  EE,  eeeR'-se  'hey  are 


C  NEEDED  -^0  INrlALIZE  'HE  ARRAYS  -U  R-EEIO  RE 

C  CALLING  PARAKERERS.  "HE  ARRAYS  EA'-' E'  EE  I' riA.IEE:  ..r- 

C  DATA  3’ATEMENTS  ’N  A  DIRECT  FASAIC.N  BECAJSE  '.-E'E  ■ 

C  BUG  IN  FriE  '«ICR0SCFT  FORTRAN  COiTPILER  V2.E,  ^-i:-  IEEE 

C  INITIALIZE  REAL  ARRAYS  CORRECTlT  I-  -rn'E  SEEN  IDEN'- 

C  IFIED  AS  li-ARGE  ARRAYS.  I"  DOES  NO"  SEEr  *0  YA’^ER  ArE"  EF 

C  "HEY  ARE  DECLARED  lARGE  jSInG  ''GENERIC'  $lARGE  '<iI"-'0u" 

C  SPECIFIC  ARGUMENTS,  OR  AhE'^R  "nEV  HAvE  BEEN  CE'C^ARED 

C  SPECI^I'-ALlT  as  in  "He  aCCY*^AND3  pR-CEiDInG  ""^IS  R0‘j~.Ni 

C  I-  "HE  SE^Oa  ROL'InES  A-E  DUl«HX  RCu'iNEG:  "-IS  CnE  -AS  GO" 

c  "0  fct  C4l-e:  an  idio"  rol^ine.  tms  rOu":ne  exis's  secalse 

Z  “K.  DA  -  3'A^E^N"S  ‘jR  R-Au  AR-Ay5  nI_^  NO"  CC'MAI.,-  w'j-Rr... 

■  "-EV  ARE  IS  -HE  -IRST  GLBROL'INE  IN  A  CONPILANO.  “tlS 

3  SuPROl'.Nc  “■<  'D€S  A  RAC  "C  -uOl  ■•^E  CC^A!_ER.  aI**"UL 

3  "rIS  ROL-INE.  --E  jNE  ..''iy£DIA"E..Y  ■u.._C*iIN3  aI; _ NG  CIj'''PIu£; 

"IT-  -Ir  -Zhj  inf  I 


iNpLiCi"  '^al*8.'a-“. 3-:; 
uI'tNSICN  SLG  . 

BUGa)  =  O.DO 

RETURN 

END 
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VECT  \  IJ 1 . ) 
VECT;:;;.;)=c>Et-:2 
170  VEC’CJ., 

180  IJ=IJ+J 

u - 'jPDw  E  EIGENvh^.Ez 

::=o 


DO  190  I=1|V 

IF (VKt II ) . 87. ZE^Q. ^^0.  ( 1 1 ; . 5". ZZ9Q)  ZZ  *Z 

WRITE  (HP,  EOOij)  I 

STOP 

190  VflLP(I)=VK!II)/V>!li;) 


IF(«.3T.  1)  WRIT£(«P.E010)IC,  (V0:.3(I) . 

EOlO  FOR»fiT(/'  EISENVALOES,  SWEE^  I4/(1X, lOEli. 

C -  CHECK  FOR  CONOERSENCE  OF  EIEEWfi^-ES 

DO  ECO  1=1, M 

"(aSS{v'flLP(I)-0ALP0(I)).3'.  (E7S*VP._30!:') : 
EOO  CONTINUE 


C - CHECK  FOR  C0NVER8ENCE  CN  DIAGOnA:.  'ER''5 

JJ=1 


DO  210  J=2,N 
JJ=JJ+J 


JM1=J-1 

11=0 


DO  210  I=1,J1>?1 

II=IM 

IJ=JJ->: 


rK=VK  ( I ;  ,1  ♦VK  ( I J )  /  ( VK  ( 1 1 )  ♦  VK  ( J J ) ) 
fT<=V«  a  J )  ♦OK :  J  W  ONK 1 1 )  *VM  I J  J ') ) 
IF(FK.3T.EPS2.CF.-''.S'.E?S2)  GO  '0  230 
210  CONTINUE 

c -  normalize  EIGENVEC’CRE 

JJ=0 

DC  £20  j = 1 , N 

j  j  w 

01=509’ (VM(JJ)) 

DO  220  1=1, N 

220  VEC7(I,:i=VEC’(I,:i/Cl 

C -  ACHIEVED  CONVERGENCE 

IF(?I.S7.0i  t.R!’E!’iP,2020)  IC,  ITR 
2020  FORMAT (15X. 'CONVERGENCE  ;%  ' .  '  SWEEPS  AND  MS. 

IS  IN  JACOBI’ ) 


RETURN 


’RA\S-:.R''C’ 


C - ’RANSFFR  VAi.3  INTO  VA;.?0 


230 

DO  240  != 

=  1.N 

2A0 

VALPOd)^ 

=VAuP(I) 

250 

C0N7I,VUE 

C - 

—  FAIl 

’0  CONVERGE 

WRITE  (MP, 

,2030)  NCYM 

2030 

FORMAT  (’ 

♦♦  ERROR,  CONVERGENCE  FAI.URE  IN  JACCGI  IN’ 

STOP 

EtID 
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70  ik=:k+; 

80  7;  *; 

i»i=i 

DO  go  JK= J£, J3 
Cl-VK(IK) 

C2=VKiJK: 

W(IK)=Cl+B*C£ 

vK(jK)=:£+CHtc; 

Cl=V»t(!K) 

C2=VM(JKj 

VM(  IK)  =Cl+8^C*i 

VM(JK)=C£+g»C: 

90  ik=:k+:'^ 

lOO  IF(J.E2.^)  j'j  C  '.;0 

ik=:j+j 

JK=JJ+J 

IW=J 

DO  110  JJK=J?1,N 

ci=w(r)<) 

C2=vk(j:k) 

VK(IK)=C1+B«C£ 

'^(JK)=CE>Q*C1 

C1=VM(IK) 

C2=V«(JK) 

V»(aK)=Cl+c«C2 

VW(JK)=C£+ft*C; 

IM=IM+1 
IK=IK+I’1 
110  JK=JK-fiM 
120  Cl=VK(rii 
C2=VK(!J) 

OVKiJJ) 

62=6*6 

BB=DEIJX*B 

fl2=0«fl 

flA=0££<»0 

VH.(i:)=C!+BB*C2-E£*{;3 

vk(ij)=z::g 

’VK(  JJ)  =C3*'FP»C2*-Cc:*Cl 
C1=VN(II) 

C2=VH(IJ) 

C3=V«!JJ) 

v«(i:)=ci*BB*c2*Bc»:: 

V«(IJ)=ZE9Q 

VW(JJ)=C3*fiP*C2*A2*:i 

C -  UPDfl'’E  £I5c:Vv'EG’’393 

DO  170  Ij;  =  l,N 
C1=VECTCJ1,;) 


245 


r 

Es: 

fl 


a 


DO  130  I-'.I'-Ai 
IC=I>1 
II  =  IIrI 
IP1=I+1 
ij=i:+i 
JJ=I! 

DO  130 
jPi=>I 
JM!=J-! 

J0=JJ+1 

JJ=JJ+J 

J3=JJ-i 

C - CCMPiJT3  COUPLING  PPC';=3 

FK=  ( VK  ( I  j )  ♦OK  ( ;  j )  I .'  ( VK ;  I : ;  ♦  v'K  (  j:  ) ) 

F>i=  ( vT«  ( IJ)  ♦Of'  ■:::;)/;  v" !” )  ♦vK  ; :  j . ; 
:F!F)<.^T.EPSD.fiND,-''.L’.£P5j)  GO  'C  ISO 
C - COMPOTE  TFE  TFPNS-Ct'-'ICN  CCZ'-ICIITS 

:tr=itr+i 

C1=0K  { 1 1 )  ♦OM  ( :  J)  -0M(  1 1 )  ♦v.<  { :  J! 

C2=0K  < JJ) ♦OM ( I J) -OM (JJ) ♦OK ( I J) 

G=OX  ( 1 1 )  ♦OM  ( J  J )  -OM ! ;  I )  ♦OK  { J  J  ) 

DET  =  <  C3^C3/30P"R )  +  ( C 1 ♦CE; 

IF(D£T.3E.2E.RC)  30  ^3  50 
WRITE («P, 2005)  I,J 

2005  FORMAT ('  ♦♦ERROR,  SINGCuhS  JACCST  "RANSrCSrS’IC'. 
1  ’  J=’,I5) 

STOP 

50  DET=SQRT(DET) 

Dl=C3/CELi):+D£P 

D2=C3/DEIJX-D£P 

D=D: 

I- (RBS  (D2)  .Q’.  A331D1) )  D=D2 
IF(D.£Q.ZERQ)  30  ’Q  60 
A=C2/D 
B=-C1/D 
GO  TO  65 
60  A=ZERCi 

B=-0K(:J)/VK(JJ' 

C - MODIFY  CCIUMNS  OF  K  AND 

65  IF(I.EQ.l)  30  ’C  80 

IK=IO 

DO  70  jk=jo.j: 

Cl^OKCX) 

C2=0K(JK) 

0K(IX)=C1+B^C£ 

OKCRXE+AhKII 

C1=0M(IK; 

C2=V«(JK; 

0M(IK)=C:+B^C2 

'0M(j’K)=c2*p*:: 


2  4  4 


SUS^OJTIXc  JACCE:  :vx.  V'-,  v  scyv.  vA^.-;, 


’G  SGLVi  EISEXA'GE.Er  K-.Ar'EEA. '  BV  ’-E  3E 
JACCE  I  MFKID 
lyAUT 

VK  (^ATSIX  ;<  CJPAE;^  TAIP.\Gl:  SY  GE3CE 
co:.GWS) 

W  "MATRIX  'K  (LIPAER  TR:p\BuE  BY  CEECE 
COLUMNS) 

N  ORDER  OF  ‘'ATRICES  K  AND  M 

NCY«  'XAXIXLM  NUMBER  CF  SWEEPS  Au^Oi^EC 

EPS  CONVERGENCE  'CLERAnCE  (l.D-lEi 

WORKSPACE 

VALPO  WORKING  VECTOR  (DiMENaIGN  N) 

QU'^PUT 

VALP  EISENVALLES 

VECT  EIGENVECTORS 


SUBROUTINE  RS?*5;KlD,  vCI'*-.  T-ICE,  vC"E.  .-■  I,  .-'ll,  ■  v'-  E.  V-I. 

1  VKGS,  VKjD,  V-^8I,  «‘Fo.  vDI.£,  NRES; 


C  '0  aSSE?^BL£  THE  3-OBfiu  »'R£S  ^'A'RIX  lE.EHE’.'  -Et;::;-  £! 

I^'PLICIT  R£KL*6(fl-H.0-Z) 

CO^F^ON/ELE^/NEl’.  WEL,  N'^E.  nSRE,  TE,  MEEN',  -'T... 

CO«MCN/fiSSE/NSY:N,  (3) 

C0>^O:\/RESC/NEQ,NFr-.R,;) 

COWON/RGDT/IEU  T-E,  I'^El,  lERE,  lE.E.  lEE.  ITR-.E,  ITEEE,  INE..  "EE, .  ^E 
;  ,IC0D,NU.L(3) 

CDOTN/ES/?^,  *13,  jHi,  M£,  .«0UW!8) 

DII^ENSION  KLD(*),N'I}:N'D{*),KL0CE(*),vCEREi*i,VTR\E',*I.V'5EE:t;. 

1  K'NE (♦) ,  VH-  (*1 ,  VFE (♦) ,  VNSS (♦! ,  'vX3D(» ' ,  vXOI  !*.i ,  vj (♦x  VD'_i , 

2  '.’R£S(»),KEB(;) 


C - REWIND  ElE?!ENT  FI.E  i'^) 

REWIND  I*t2 

C - LGC?  OVER  r«E  EL£!^NTS 

DO  30  IE=1,NEL* 

C - SXIP  CQJ'PUTflTIQ.NS  :=  IDEN’ICfi-  E»E.rE\*5 

IF(NIDENT.EQ.  l.fiND.IE.GT.l)  3Q  TO  £0 

C - .REPD  AN  ELEMEN" 

CALL  RDELE'- (M2.  KLXE,  VXRE,  V^RNE,  VPREE,  KNE : 

C - EVALUATE  IN^RPCLATICn  FUNC'ION'S  IF  REIUlRED 

IF(ITPE.EQ.ITPEl)  30  TC  10 
ICQD=2 

CALL  ELEMLB ( VCORE,  VPRNE,  V5REE,  VDLE,  VKE,  V-E; 

!0  IC0D=5 

CALL  ELL*16(VC0RE.  V3RNE,  V3REE.  VOLE,  VXE,  V-E) 

C -  PRINT  ELEMENT  MA'^RIX 

IF(M,lT.2)  go  to  20 
IF  (NSYM,  EQ.  0)  IKE=iD',.£+  (  IDlE+.  ) /2 
irlNSYM.EQ.l!  IKE^ID'.E^ID'.E 
WRITE(MP,2000)  !E^, (VHE(I), 1=1, IKE) 

2000  "ORMAT(/’  MATRIX  iYE)  ,  ElE'-EN^:’ ,  15/ (lOX.  10212. 5) ) 

C -  ASSEMBLE 

20  CALu  ASSEl  (1.0,  IDlE,  NSYM,  X.OCE,  X_0.  vXE,  V-E,  YXGE.  vC-D.  v(GI,  V-3i 
30  ITPE1=ITPE 

RETURN 
END 
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I-  5“  .  i; 

DO  030  :s=;, :s. 
ii=:s+-. 

C=VLSW(IS) 

II=IS 

DO  cOO  JS^Il.NSS 
IF(C..T.0lP:'3;:5);  GO  *0  000 
C=Vu(WEi(JS) 

rr=js 

CON^IMUE 

OLAMB{:Si=C 
DO  030  ;D=:,i^O 

c=oec;:d. 's; 

VECCD,  :s)=v£C(;d.  i:; 

0£C(iD,::i=: 

—  PAIN’  SESOl’ 

kiRrE(!«p,oo30j  ro^ 

'QR.MAT(/’  ....  :CV^E:33'.;:  14,' 

CONTINUE 

DO  OW  IS=1,\VPLP 
^RITEC'P.OOIO)  IS.VLft'i&CS) 

CAL.  P9S0L (nDLNC, OCORG, VDIMP, .nMEQ, viC( 
GO  060 
CONTINUE 
URITEIMP,  0040) 

•QR'HATC  *♦  NS3  IS  JR5ER  "''^An  "ASS  D 
RrURN 
END 


120  CCNTI^t...E 

IF  (MSS.GT. li  GG  "0  1:5 
VLflMI(i)=VKSS(l)/V)rSS;.) 

GO  TQ  165 

C - CALCUJ^iE  2IGS\VAi.GE3  "-E  BLBG-SGZ 

125  CALL  JACOBI  (VKS3,v'MSS,'.SS.N5«’'.*:_JAC,  VI,  VLfWI.  VO 

C - NEW  LOAD  VECTGS 

DO  160  !D=1,NEQ 
DO  130  JS=;,NSS 
130  vi:js)=vec(ID,js) 

DO  150  J3=1,VSS 
C=ZER0 

DO  140  13=1, NS5 

140  c=c+v:(is)*vx(is,js) 

150  VEC(ID,JS)=C 
160  CONTINUE 
165  CONTINUE 

C - PRIN’  t:-£  ite^a'igs  VP.JES 

IF(M.LT.I)  GO  TO  130 
WRITE (!*P, 2000)  IT£R 

2000  FORMAT!//'  .  I’ERA’ICN  ' , 15/) 

DO  170  IS=1,NS3 

WRITE (MP, 2010)  IS,VlAM:(I3) 

2010  FORMAT!/'  EISENVPuuE  VO.  ',13,'  =',£12.3/;'  i:6EWEC''GR!’ ) 

170  CALL  PRS0LlKDLNC,VC0RG,VDI!''?,KNE5.VE;(i.:Si) 

C - CHECK  FOR  CONVERGENCE 

180  IFIITERM.GT.O)  GG  I'D  210 
C=Z£,RO 
IEX=0 

DO  190  IS=1,NSS 

C1=AES(  !’VLA«1  !1S)-VLAMB!IS)  )/VlAm3!:S)  ) 

IF!C1.GT,C)  C=C1 

if!ci.lf,e?slb)  :ex=iexh 
190  continue 

WRITE  (MO,  2015)  HER,  C,IEX 

2015  FORMAT!'  ITERATION  ',  14, '  "AX.  ERROR=' ,  E9. 1, '  EXAC-  EIGEWAw 
1,14) 

IF!IEX,GE.NVALP)  ITERM=1 

C - NON  CONVERGENCE 

IF !  ITER.  LT.  NITER.  OR.  TERM.  EQ.l)  GO  TO  195 
WRITE  IMP, 2020)  NITER 

2020  FORMAT!'  «  NON  CONVERGENCE  AF'^ER  ',15,'  ITE-RA'IONS’ i 
ITERIt=l 

C - SAVE  THE  EIGENVALUES 

195  DO  200  IS=1,NSS 
200  VLAMB!IS)=VLAM1!IS) 

C 

C - RESULT 

C 

C -  ARRANGE  EIGENVALUES  IN  ASCENDING  ORDER 

210  1S1=NSS-1 
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DO  iO  ID=1,NED 

if(vi(:d).3'.c>  go  'G  cU 

C=V1(ID) 

n=ID 

20  CONTIJ'ftJE 

vi(n)=cMfix 

'VECdl.JSi^GN 
30  VLawB(J3)=UN 
VLfl«B<i)='LA 
lF(NVflL3.EG.  1)  'JSS=1 

: - IWE2S2  \val?=i 

: - START  rERA^:GT.S  LOOP 

n 

L 

:t*ax=nites+i 
DC  £00  iter=;,:t^(ax 

->  _  D''*7  t 

^  r  -1  -T  -  r\J  .  C  ”  i  I  t  Vte.L  ■  L'  ^ 

110=0 

DC  80  JS=i.\SS 

;io=i!o-*-:s 
DO  AO  :d=i.ncG 
40  viiiD)=vEc;:D,:si 

CALL  SCl(VX3S,  TXGO,  VX3I,  VT,  aLD, IvEQ,  Sd  •» 

; - cAuCuLA'E  TrE  -:l:ec':cs  of  k 

ii=i:o 

DO  60  IS=JS.I^3 
C=ZERO 

DO  50  10=1,  !€G 
50  c=cvv/i(:d)»vec(:o,:3) 

VKSS(II)=C 
so  II=II+IS 

DO  70  ID=1,I€G 
70  VEC(1D,J3)=V1(ID) 

30  CONTIMJE 

: - CAuCL.ATE  T-E  ^ACJEC'ICN  OF  '' 

110=0 

DC  120  JS=1,'(3S 
iio=!:o+JS 
D0  85  ID=l,N£a 
35  V1(:D)=ZER0 

CALL  *ljL-('J  '■  VMGS,  v*^GD,  v''GS,  K'_D,  Vr,  1 1 ,  J3) ,  NEG, 
11=110 

DO  100  :5=JS,NS3 
C=ZERO 

DO  90  :d=i,ned 
50  C=C+V;(ID)*VEC(ID.  IS) 

IFdTERi'l.GT.Oi  GO  "0  120 
VMSSdD^C 
100  II=II+IS 

DO  lie  ;d=i.n£o 
110  VECdD,JS)=o;dD} 


O  CJ  C.J 


suB'^ou'iNE  ExvaL?(>:-D, .■:C'-^e,v'5='.e. .'"-ee.-.  e. .-e. 
;  '/'kbs.  vkgd,  V- 3,  vCE^j,  ';Dl\c.  ^.\eq,  . :le.  , .  '•■ee,  . 

E  VE[:,ViaX)B,VLA''i,v<35,V''ES,  .l.vi,  \'E:.  \E3: 


TO  EXECOTE  B.OC/  "JPL'' 

TO  CQ^^PU'E  EIOENVALJEE  P*^0  EISENvEO'C'S  Ev  E-.B£’sCE 
C  ITERPTIGN 

c  (I-  NVfiL^.EO. ;  eweeee  rEW’:;\  '•e'-cd) 

’'■ai.icr  m*8;a--,o-Z) 

COM«!N/flSSE/  NSVX.  NKG.  •.'■(£.  NDLE 

CCVON/'vfLP/SITEB.  Mf'DIAG,  E-E'.S,  S-;-'.  \££1,  ".E-.^  ‘OLJAC,  '.T-.' 
OOMXQN/E5/'*. 

D'sDENSICN  HLOIti.TDI'-Ui.l-CCEU;.  .OOEE^*!,  .'E\E!«;,v:EEE'»!, 

1  KNE  i ♦ ) ,  VPE  ( * ; .  '<KE  ( ♦  - .  V-.OE  . ♦ . ,  VKGD : ♦  i , » “ G : » ' .  vOOEG  ■  ♦ : ,  KO-'.O  ♦ ! . 

2  KNcQ  ( ♦  I ,  V9ES  ( 1 1 .  VO.E  ( *  i ,  V j.O  ( » ■ ,  '‘GE  ( * ; ,  /'GO ; ♦ ; ,  vEE :  ',10, » . , 

3  VLPCB(*i.  vX-firi  (♦) ,  VKE3^*i ,  VkSE:*) .  .  V/  :-.EE, 

DA  1 P  Z£.9u/0«  DOX I  u^X  1 ,  vDO/^  o"<AND/ 1  *  uD^.^/ 

ABS(X)=DA&S(X) 


C - P9ELIMIMA9Y  CO«P'l;’'A’IC.\S 

0 - ASSEMBLE  K6  ALD 

CAL.  ASKG (YLO,  VDIMP,  KlOCE,  VCORE,  VPRME,  VPREE,  At,  Vil,  v’KOS,  V<GD. 
i  VKGI.VPG.'/DLE,V9ES) 

■  CALL  ASMG(KLD,VD:''P,  CCCE,  VCORE,  V09ME,V3R£E,AE,VHE,';-£,V'^c3, 

1  VT«D.V«SS,VrG,VDLE.VRES) 

C - Yf}iflf(GULARIZE  K3 

CALL  SOL  rVKSS,  VKGD,  VKGI,  V-3,  KLC,  *<10,  MO,  1, 3, 0,  ENER3) 

C -  LOAD  VECTOR  E2.AL  '0  DIAGONAL  OR  M 

CMAX^ZERO 

ICON'I'^O 

DC  :0  ID=1,NEQ 
C=GRAND 

C - CHECK  -OR  ZERO  DIAGONAL  ’ER'*  IN  V^GD 

IF(VMGC(ID).EQ.ZERC)  GO  *C  5 

ICCNT=ICCN'+I 

C=VKGD(ID)/VMGD(ID) 

5  V1(ID)=C 

IFIC.G'^.CMAX)  CMAX^C 
VEC(ID,l)=vr3D(ID) 

DO  10  JS=E,nSS 
10  VEC(ID,;S)=ZERO 

C  CHECK  i"  SLBSAACt  D.YzNS.CN  Ij  laLAL  'u  '*A3S  D.  0. 

IF(ICCNT.lT.NSS)  go  *0  ECO 

C - UNIT  LOAD  VEC'DRE  CORAESPC'.CIyE  '0  “IN.  C- 

C  K(I,I)/M(:,I) 

DO  30  JS^,  NSS 
C=CMAX 
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10  CONTINUE 

WRI'E(NP,EOOO)  ''i  '  -'E',  1-3-E,  ^E3,  '.3*’', 

EOOO  FORKflK//’  SUBSPRCE  :'E=a"::‘  :3.  V'' ''  ’.EB'’=’;. 


1  15X, 'NUMBER  OF  DESIRED  EISE'.vF-EE  ;  .yP--i=’ 

2  15X,’!1PX.  NUMBER  OF  I-ERF'IG.-.S  =E-''':‘":  :M-E=!=‘ 

3  15X, 'INDEX  FOR  DIAGONAL  KATRIX  •.'EI^E.-' 

4  15X, 'CONVERGENCE  TOLERANCE  ON  eigenvalues  .E^I.S  =' 

5  15X,' SHIFT  .Sr:--)=- 

6  15X, ' SUBSPACE  DINENSIDN  -VSS)=' 

7  15X,’!tAX.  NUMBER  OF  ITERA’ION  IN  JACOBI  (NSU,r)=' 

8  15X,' CONVERGENCE  TOLERANCE  IN  JACOBI  (*Ou:AC’=' 

IF(NVAL?.LE.N£Q.AND.NSS.LE,N£C)  GO  TO  20 

WRITE (MP, 2010) 


2010  FORMAT!//' — ERROR —  NVALP  OR  nSS  GREA'ER  THAN  NEO',/, 

1  ' — STOP  EXECUTION — ’) 

GO  TO  30 

20  IF(LXGS.EQ.l)  CALL  ESPACEiNKG,  :,'BL(i;,^KS3) 

IF(LKGD.EQ.  1)  CALL  ESPACEINED,  !,'B.(2),i.KGDi 
CALL  ESPACEINKG,  1,TBl(3),uTG3) 

CALL  ESPACE(NEQ,  1,TBL(4),LKGD) 

IFILFG.EQ.  1)  CA-l  ES^ACEINEO,  l,  tb^(5),LF3) 

IF(LKE.EQ.l)  CALL  ESPACEiN/E,  1,''Bl!6),lKE) 

ifilfe.eq.  1)  CALL  EsoACE'ND.E, :,te.;7),..-e; 

IF(LDL£.EQ.l)  CALL  ESPACEiNDuE,  l,T5L(8),i.0LE) 

IF(LRES.FQ,1)  CALL  £S?AC£(NEO,  l,*c--i?),_R£S) 

!F(LDLG.EQ,1)  CALL  ESPACEINEO, !, ’■BlII'O.LDlS) 

CAa  ESPACE f.NEIHNSS,  1 ,  TBL  ( 1 1 ) ,  -VEC) 

CAa  ESPACE('nSS,  1,’BL(12),lLAJ'B) 

CALL  £SPAC£(NSS,1JBL(13),'-LPI«’) 

CALL  ESPACEfNSS* (NSS+i) /£, 1 , ’BL ( 16) ,  lKSS) 

CALL  ESPACE  (NGS* (NSS*‘ )  /2, 1 ,  'Bl  ( 17) ,  .."SS) 

CALL  ESPPCE(NEG, !,"BL(:8),lV1) 

CALL  ESPACE(NS3*N33,  l,7B-;i9),-X) 

CALL  EXVALP(VR(LLD) , VA<.j!'-aj, VA(„aCE) , VAiLCCRE) , VAi.SRN 

1  VR(LPREE)  ,  VA  !LNE) ,  VA  (lFE)  ,  VA(.KE) ,  VA  ,  VAl.-lGD) ,  V^  ( 

2  VA(LCORG) ,  VA (LDLNC) ,  VA  (LNEC) ,  VA (lRES)  ,  VA ;LD_E:  .  v'Q 'LDLG) 

3  VA(uiGS) , VA(LMGD) , VA(LVEC), VA!LlA’<B) , VAI^.Jr; j , VP ;-<33i 

4  .VA(LV1),VA(LX),NEQ,NSS) 


SliBROUTIS£  BlVSLP 


C  TO  CflLL  BLOCK  'VaLP' 

C  TO  COMPUTE  EIGENVaLjES  OfiD  EI6EWECT0RS  BY  "HE  SuBSPflCE 
C  ITERRTION  TECHNiffliE 

IMPLICIT  REft.»8(P-H,Q-Z) 

CHflRfiCTER*4  TBL 

CWMON/ELEM/NULL  (4)  ,ME,  XNULL  (2) 

co«MON/nssE/Ksy:'i,  nkg,  nke,  sole 

COMMON/RESO/NEQ, NFILLRii) 

COMMON/VflLP/STER,  WDIPG,  EPSLB,  SHIFT,  MSS,  \SWM,  TD.jaC,  NvAL.: 
COfWCN/ES/M,  MR,  MP,  MI,  M£,  MOLWY  (8) 

COfWQN/LX/LCGRS,  lDLMC,  ■_\E0,  L2y9,  .2RS3,  .?REG,  .LD,  Li-OCE,  .CORE,  .NE, 
1  LPRNE,  LPREE,  LDLE,  LKE.  LFE, ^KEE. -KGC,  LKEI, ^FG, LRE5, LDLS, LDLMMV (4) 
COMMCW/TRVL/n,  X£,  X3,  II,  12, 13, 14,  IE,  RDL’"'V!5:3; 

COMMON  Vfl(l) 

DIltNSION  TBL(20) 

DATA  ZERO/O.DO/ 

C+++  THIS  IS  COMMLNTED  OUT  BECRLISE  OF  AN  kS  -CR’R-V.  EC'^I-ER 

C+++  BUG  WHICH  WILL  NOT  INI'^IALIZE  tLPRGE  ARRAYS.  ’>;S  AR”v 

C+-H-  IS  NOW  INITIALIZED  BY  A  CAuL  TO  A  DUMMY  SUBROUTINE 
C^f+  INITBL  WHICH  EXISTS  SOLELY  TO  INITIALIZE  ’HIS  ARRAY 
C 

C  DATA  TBL/’KGS  ’,'KGD  ’.'MGS  ',’MGD  ','^3  ’,’KE  ’,'f^E  ',’D-E  ’, 

C  1  'RES  ’,’DLG  ’,’P  ’,’'JIMB’,’LAMI',’R  ’ , ' P^I  ’ , 'KSS  ’ , 'MSS  ’ , 

C  1  'VI  ’,’VX  ’,’Y2  '/ 

C 

C  HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 

CALL  INITBLITBL,’VALP’) 

C 

C+-H-  ALL  OF  THIS  IB  TO  GET  AROUND  THE  MICROSOFT 
C+++  COMPILER  Bl£ 

C 

C - 

IFIMl.EO.O)  M1=MR 
IF(M2.EQ.O)  ME^ME 

READIMl, 1000)  II,  I£,  XI, X2, 13, !4, 15, X3 
1000  FORMAT (215, 2F10. 0, 315, IFIO. 0) 

IF(Il.NE.O)  NVALP=I1 
IF  (12.  ME.  0)  NITER=I2 
NSS=I3 

IF(I4.NE.O)  NMDIA6=I4 
IF(I5.NE.O)  NSWM=I5 
IF (XI. NE. ZERO)  EPSLB=Xi 
IF(X2.NE.ZER0)  SHIFT=1E 
IF(X3.NE,ZERG)  '0LJAC=X3 
IF(NSS.NE.(i)  GO  TO  10 
NSS=MINO(NVRLP+a,  £*V./AL2| 

NSS=MINO(NSS,NEO) 
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*  ti  \3 ( VKal, 

c  'HIS  Subroutine  exis's  sOuE-'i  'j  set  fiRou\D  s  tic^csof* 

C  COiTPILER  BUG.  I'S  PURPOSE  IS  "0  INITIALIZE  T-£  ARRAYS 

C  PASSED  AS  ARGLMEN'B.  'iE  DUJ^h'Y  ARr^vb  vHSII  AND  aEX'^  'A*E 

C  BEEN  GIVEN  ErE  ATTRIBUTE  SNQ'LARGE.  AND  -I^L  BE  INTIAlIZED 

C  PROPERLY  BY  THE  CQMPI.ER.  '-E  $.nOT..AR5E  A'rRIB-'O  IS  ASSII-EO 

C  BY  DEFAULT  SINCE  THEIR  Dlt^ENSIUNS  DO  NOT  EXCEED  S-.  Ey'ES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALi.FD  BY  SUBrOU'lNL  nIOG  H'lIU.H  IS 

C  USED  BY  ELEMENT  ^PE  3 


IMPLICIT  REAL*8iA-H,Q-2) 

C 

C .  INFORMATIONS  CARACTERISTIOLES  DO  TRIANGLE  A  5  NQElDS 

C  (INEL.EQ.6  NDIM.EQ.E) 

C  DIMENSION  VKSI(NDIM*iNEL),.-<EXPiNDIM*INE-) 

DIMENSION  VKSI  (  1E),YEXP  (  12) 

DIICNSIDN  VKSIK  12),K£X?P(  I2i 

U 

C  THIS  IS  the  dummy  array  INITIALIZATIttN 

C 

c  coordonnees  des  noeuds  de  l’ei.emen*  d£  reference 

data  VKS  1 1  /O.  do.  0.  do.  0. 5D0, 0.  do.  1 .  DO,  0.  DO,  0. 5D0. 0. 5D0. 0.  DO,  1 .  DC . 
1  O.DCi.O.SDO/ 

C  EXPOSANTS  DES  MONCMES  DE  lA  BASE  PGLYNOMIAlE.DEGRR  -AX. 

DATA  KEXPP/0,0,  1,0,  0,1,  2.0,  ;,1,  0,2/ 

c 

C  INITIALIZE  THE  REA.  ARRAYS 

C 

DO  10  I  =  1,12 
VKSI  (I)  =  VKSIKI) 

KEXPd)  =  HEXPti(I) 

10  CONTINUE 
RETURN 
END 
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tj  o  r  1 


3^jc^9cu':^:E  :m’S6(«g".  ;s:',  e'A", 


C  this  SlBRQljTI?<£  Ei'.S''s  GQlE-t  *j  SET  iR«Z.\D  ft  ■'TESGSu'" 

C  CQi'IPlLER  BLiS.  ITS  PUR-'GSE  IS  ”1  I'ilTIfi^IEE  "-E  fiRRftVS 

C  PASSED  AS  ftRGGi*'EN'^b.  Tftii  DU*'’''V  PREAvS  >^*i,-ET*~, 

C  ETATT,  INTNU'u,  ftND  iVI'R'VV  HfiVt  SEE'^  GIVEN  ~-E 

C  ATTRIBUTE  t^OTLARGE,  AND  inlL_  Be  IM'Iftu-ZbE 

C  BY  THE  COMPILER.  THE  *N0vftRGE  ft~RIB.:'E  IS  ftSEI:■^ED 

C  BY  DEFAUL'!’  SINCE  ThEIR  DIMENSICNS  Du  nu"  EXCEED  G('E5 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  3V  SijBRGU’lNE  S*-%  «-:>  TE 

C  USED  FOR  ELEMENT  TYPE  6 

implicit  R£ftL»a(A-H,0-Z) 

DIMENSION  ipiGT  (♦),PSIi  (♦/|ETAt  (*),  IN:'.L'^(*»,\:'iTj  (*., 
DIMENSION  UGTT(7),PSrT(7),ETftTT{7),!NTNcj;5).\I\TVV(5l 
C 

C  HERE  IS  THE  DUMMY  ARRAY  INITIALIZATION 

C 

DATA  PSITT/  0. S323G3333333D0, 

♦  0. l&6BSB6SSGb7D0, 0.  i66666B6b667Du, 0. 666666666667D0, 

♦  0.5D0  ,0.5D0  ,O.ODO/ 

DATA  ETATT/  0. 323333333333D0. 

♦  0. l&SBBoSSSSSTDO,  0. 6S66fa66S6667D0, 0.  lBo66o6Eb667D0, 

♦  O.ODO  ,0.5D0  ,0.5D0/ 

DATA  WGTT/  l.ODO, 

0. 333333333333D0<  0. 333333333333D0, 0. 333333333333DO, 

♦  0. 333333333333D0. 0. 333333333333D0, 0. 333333332353D0 / 
DATA  INTNUU  /  0,1,4,7,11/ 

DATA  NINTW  /  1,3, 3, 4,  7/ 

initialize  the  REAL  ARRAYS 

DO  10  I  =  1,5 
INTNUM(I)  =  IN7nUJ(I) 

NINTV(I)  =  NI^fT'W(I) 

10  CONTINL’E 

DC  30  I  =  1,7 
WGTd)  =  HGTTU) 

PSIT(I)  =  PSITTd) 

ETATd)  =  ETp-'Td) 

30  CONTINUE 

RETURN 
END 
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tJ  C-)  Cj  tj  rj  CJ  cj  O  rj  CJ  rj  cj  « -i  CJ  f-J 


SUB^OJ'INE  :\rN7fW£:,^,EO> 


C  T^!S  SUB’EL'IKE  EXIS'E  SC^E.Y  "0  SET  PE:e\D  fi  "ICEOSCF’ 

COMDIlER  Sou.  ^3  ^L'S^DSE  .'3  TT  EMTIfloIZE  THE  asf?AV3 
PASSED  as  A36L>!E\T3.  '-E  Dl.^MY  ASTAvs  v'^SII  a\D  KEX^P  -Av'E 
BEEN  GIVEN  THE  PT^RIBU^E  SNO'-aSSE,  AND  -I—  SE  IM’IP.IZED 
3RQPERLY  BY  The  C0?«3Il£R.  t-he  l.\C’LaHGE  IE  3i5;3v£:. 

BY  DE^aULT  SINCE  THEIR  DIMENSIONS  DC  \G’  EXCEED  S^X  t-'ES 
OF  STQRaSE. 


THIS  SUBRCLIYInc.  IS  CALLED  SY  uLSROL-'InE  M07  «”ICr  IE 
USED  BY  Element  'ype  7 


IMPLICIT  REALMS (A-H.O-Z) 


..  INFORMATIONS  LIiiS  A  l'E.ETEN’  DE  RE-ERE\CE  CARTt  a  EO  NjELCS 
(INEL.EQ.BO  NDIM.EQ.3) 

DIMENSION  vKSIINDI’'*IN£_),<iX3(ND:r*INEL).KDER(VDi:':) 

DIMENSION  VKSK  60),kEX0(  60) 

DIMENSION  VKSIK  60),XEX3P(  60i 


INriALIZE  r-iE  DUlWY  ARRAYS 
DATA  VKSII/ 

!  -1. 00,-1.  DO, -1.  DO.  +0.D0,-1.D0,-1.D0,  +!.DO,-1.DO.-1.DO. 

2  +l.DO,+O.DO,-i.DO, 

3  +l.D0,+l.D0,-l.D0.  +O.DO,+i.DO,-l.DO,  -i.D0,+l.D0,-l.D0, 

4  -i.D0,Kl.D0,-!.D0, 

5  -l.D0,-l.D0,+0.D0,  ♦1,D0,-1.D0,'K).D0,  *1.00,+1.DO,*<).DO, 

6  -l.DO,i.DO,*O.DO, 

7  -l,D0.-l.D0,+!.D0.  +0.D0.-1,D0,+!.D<),  ^-l. 00,-1.00.-1.00, 
a  Hl.DO.+O.DO.+l.DO, 

9  +1.D0,+1.D0,+1.D0.  i-O.DO.-l.DC.+l.IKi.  -1. DO, +1.00, +1.00, 

A  -l.DO.+O.DO.+l./ 

EXPQSANTS  DES  iXONC^ES  DE  LA  BASE  POLYNOMIAlE.DEoRE  m. 

DATA  KEXPP/0, 0,0,  1,0.0,  0,1,0,  0,0,1,  2.0.0,  0,2,0,  0.0,2, 

1  1,1,0,  0,1,1,  1,0,1,  2,1,0,  2,0,1,  1,2,0,  0,2,1, 

2  1,0,2,  0,1,2,  i.i,!,  2,1,!,  1.2,1,  1.1,2/ 

INITIALIZE  the  real  ARRAYS 


DC  10  I  =  1,60 
KEXPd)  =  KEXPP(I) 
VKSKI)  =  VKSIKI) 
10  CCNTINUE 
RETURN 
END 
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o  n  c  i  rj  n  t  j  r')  m 


SUB«aj”NE 


ixri-dNc::, 


C  *-:S  S^BRGE'INE  :)!;£'3  iG.£.'  ■;  Sr  S  MIC’DSGFT 

;  COMPILER  BL3.  rs  PURPOSE  IE  "  IxTIft-IZE  T-E  PRSPVS 

C  massed  flS  flRSL''!E:X'E.  '-E  D'J.''.>1Y  PER^vS  I', DIE:.  EE,  P.\D 

C  ?P  f-fiVE  EEEN  GIVEN  ~nE  fi^RIEj'E  $NE^_r.REE,  aI _ EE 

INriP-IZED  PROPER.y  By  ’■-E  CE'-I-EE.  ’’E  i'.STJiEEE 
ATTRIBl'"  is  PSSISNED  by  DERPJL’  since  T-E:R  EImENS-C’-.S 
DC  NOT  EXCEED  64X  BY’ES  C"  S’CRSEE. 

ISIS  SuBROU-INE  IS  CSL.ED  BY  SCBEGL'InE  SPLSS. 


lYIPlICIT  REH'.t3(A-F,C-Zl 
DIMENSION  INDIC  CO),?  CO) 

DIMENSION  INBICCi^),SG!IO),?PilO) 

HERE  IS  ’■'-iE  DC.'*''y  PR'yA''  INITIALIZP'ICN 
C 

DATA  INDICC/1,2,A,7/ 

DATA  GG/0.  ODO,  57735026918%i6D0, .  57725C£53IE%ESD0. 

1  7745%66924 148300, 0.  ODO, ,  7745S66S3E4:t33:C, 

2  861 13631159^05000,  33993104358466000, 

3  .  33998104358486000,  .86113631 15940500(!/ 

DATA  PP/2. 000,  1.  ODO,  1.000, 

1  0. 55555555555555600, 0. 83883833866883900, 0. 55555555555555SD0. 

2  . 347854845 137450D0, . 65214515486255000, 

3  . 65214515486255000, . 34785484513745000/ 

C 

C  INITIALIZE  THE  REAL  ARRAYS 

C 

DO  10  I  =  1,  4 
INDIC(I)  =  INDICCC) 

10  CONTINUE 

DO  20  I  =  1,10 
G(I)  =  80(11 
P(I)  =  P2(I) 

20  CONTINUE 

RETURN 
END 
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SljBROtjTIV 


’VIS  SUE'ltOliTINE  EXIS’S  SC^E-V  'E  jE’  fl-iC-Li'-D  fi  *I"RQou-'' 
CO«ij^9  bug.  rs  3-JG^03E  IS  ’S  IM'I-LIZE  '-E  ’B. 

2fiSSED  fiS  AN  C='SL.''£N’.  T-E  Du.rry  AEBPVE  "B.X  -A-.E  BEEN  GIVEN 
*'-'E  flT'’^IBS”’E  tNOTJi^G;,  AND  nl-:.  I\I’IS_iZED  -  ' 

BY  VE  C3Y=IlER.  Tf-E  $,SC'LARGE  Q”RI&L''E  IS  -SSiG'ED 
DEEffiJlT  SINCE  "HE  DIMENSION  DOES  nQ’  EXCEED  64a  BrES  C- 
STOfMGt.  ’BE  CONTAINS  A/jlNTEffS  INTO  >E  AG'^aIVj  AR^AV, 

’HIS  SCBRCOTINE  IS  CALLED  BY  SuBSOL'TINE  E-^IND,  B.NlIN, 
BL^EHP,  BLv'AL?.  BuCGOS,  BLCCND.  BlPREl.  BlE^E'L  BLSOL'-. 

AND  BLLINp*. 


CrARAC^ER+i  TB-.  -iHO,  CALLER !  10) .  TBLl !  10) ,  ( 10) .  BIS !  IS; . 

♦  'BL4(20).'V;.S!  EO.’B^b-.  E), 

♦  "BL?!  2),TrL6\  EiiTr'--:'  S^tiDLlOtS; 
DIMENSION  'BL  (♦) 

DATA  CALLER/’  LIND’ .  ’  NLIN’ ,  ’  "E’-'A’ ,  ’  VALP’ ,  ’  CQCR’ ,  ’  CCND’ ,  ’  ARE.’ , 

♦  ’ELEY’.’SCLR’.’LINN”/ 

DATA  NT3LS/10/ 

initialize  ’-e  dlmt'y  arrays 

7BL  ASSIGNMENTS  PGR  SUBRDLiTINE  B-IND 
DATA  TBlI/’KGS  ’,’bGD  ’.’KGI  ’,’PG  ’,’KE  ’,’PE  ’ . ’ RES  ’ . ’ DLE  ' . 

♦  ’EB  ’.’PB  '/ 

TBL  ASSIGNMENTS  PQR  SuBROUt^e  B.NLIN 
data  7B12/’ KGS  ’.’KGD  KG'  ’.’PG  ’.’HE  ’.’PE  ’ . ’ RES  ’ . ' D.E  ' . 

♦  ’DLG  ’,’«£  ’/ 

TBL  ASSIGNMENTS  PGR  SLIBRCUTInE  Bl'E'-P 
DATA  TBL3/’K6S  ’,’KGD  ’,’KG:  ’("'G  ',’KE  ’.'FE  ’.’RES', 

♦  'DLE  ’,’DLG  ’,’«€  ’ , ' DLEO’ , ’ DlGO’ , ’ P'30  ’ / 

TBL  ASSIGNMENTS  PQR  SL'BRCLTInE  ElVAuP 
DATA  TBL4/’ KGS  ’,’KGD  ',"«S  ’,’NGD  ’.'PG  ’,’KE  ’,’FE 

♦  'DLE  ’,’RES  ’,’DLG  ’,’p  ' , ’LAYB’ , ’LAMI’ , ’ R  ’.’P-I  ’, 

♦  'KSS  ',’MSS  ’.’Vi  ’,’VX  ’,’VE  ’/ 

TBL  ASSIGNMENTS  FOR  SUBR-J^TINE  B.CQOR 
DATA  TBL5/’CCRG’.’DLNC’/ 


TBL  ASSIGNMENTS  PGR  SUBROL’INE  BlCOND 
DATA  TBL6/’l«a  ’,’DIM?’/ 


TBL  ASSIGNMENTS  FOR  SUBROUTINE  Bl=RE:_ 
DATA  TBL7/’PREG’,'V  ’/ 


C  ■'■fl:.  QSSI5W«E\''5  SJtiSr-'.’.E 

DfiTfl  TBL8/'  l;  ’ .  ’  .QCE’ .  ‘  COSE’ .  ’  \E  ' . '  =RNE' .  ’  3=.£E’  / 

C 

C  TBl  ftSSIoNME-^’S  "GS  SUBSuO’iN;  E-S'JlS 

DfiTfl  TBL9/’EG  ’,’K£  ’.’FE  ’.’Di.E  '.’K53  ’.’-,£D  ’,’■<5: 

*  ’RES  ’/ 

C 

C  T3l  ASSIGNMENTS  FQ^  SCBRCu’IvE  BLUIN'' 

DftTfl  TBLIO/’KGS  ’.’KGD  ’.’KGI  ’,’rG  ',’KE  '.'?£  ’,'SES', 

*  'DIE  ’/ 

C 

C _ DETER!«IN£  THE  CALLING  RGO'INE 

DO  5  I  =  l,NTElLS 

IF(WriO.£Q,CfiL-ER(I))  I  POINT  =  I 
5  CONTINUE 

C 

C _ BRANCH  TO  CORRECT  INITIALIZATION  LOOP 

GOTO (10, 20, SO, 40, 50, 60, 70, 30, 9(.i,  100),  IPOINT 
C 

C _  INITIALIZE  the  REAL  ARRAV  -OR  BllINO 

10  DO  15  I  =  1,10 

TBL(I)  =  TBLKI) 

15  CONTINUE 
RETURN 
C 

C _ INITIALIZE  THE  SEAL  ARRAV  FOR  BLMIN 

20  DO  25  I  =  1,10 

TBL(I)  =  TBL2(I) 

25  CONTINUE 

RETURN 
C 

C _ INITIALIZE  ’’HE  REAL  ARRAV  FOR  SLTEMP 

SO  DO  35  I  =  1,13 

TBL(I)  =  TBLSdi 
35  CC2RTINUE 

RETURN 
C 

C _  INITIALIZE  THE  REAL  ARRAV  FOR  BlVALP 

40  DO  45  I  =  1,20 

TBL(I)  =  TBL4(I) 

45  CONTINUE 

RETURN 
C 

C _  INITIALIZE  THE  REAL  ARRAV  FOR  BLCOOR 

50  DO  55  I  =  1,2 

TBL(I)  =  TBL5(I) 

55  CONTINUE 

RETURN 
C 

C _  INITIALIZE  ’HE  REAL  ARRAV  FOR  BLCONO 

60  DO  65  I  =  1,2 


256 


*BL(I)  =  TBudiI; 

&5  Cmj’WE 
SETlSN 

c 

C _ Il'ilTIALiZE  ’’HE  SE.^L  fi-EQY  i_^EZu 

70  DO  75  I  =  1,2 

TBL(I)  =  TBl7(:) 

75  CCNTIM'E 
SETJ!?!^ 

C 

C _ IMITIALIZE  T!-ie  tflL  AREfiv  -Or  S-rLr.'! 

80  DO  85  I  =  1,6 

TBLC)  =  TBLSd) 

85  CONTINUE 
RETURN 
C 

C _ INITIALIZE  ’"E  REAL  A7RS'<  roR  B'_SClR 

30  DO  35  I  =  1,3 

TBLil)  =  TBL3(!) 

35  CONTINUE 
RETURN 
C 

C _  INITIALIZE  THE  REAL  ARRAY  FOR  Bl-INN 

100  DO  105  I  =  1,3 

TBL(I)  =  TBLIO(I) 

105  CONTINUE 
RETURN 
END 


SUBROUTINE  INITOSI IA6KED, wHj) 

C  THIS  SUBROUTINE  EXISTS  SOLELZ  *0  GET  AROUnD  A  XICRGSOF' 

C  COMPILER  BUG.  ITS  PU'RPCSE  IS  TO  INITIALIZE  'HE  ARRAY 

C  PASSED  AS  AN  ARGUMENT.  THE  DUMMY  ARRAY  IPGHX  -AS  BEEN 

C  GIVEN  THE  ATTRIBU'E  tNOTLARGE,  AND  WI...  BE  IM'IALIZED 

C  PROPERLY  BY  THE  COMPILER.  THE  tNOTJ^RGE  A"'RIBl*E  IS 

C  ASSIGNED  BY  DEFAULT  SINCE  THE  DIMENSION  DOES  NO'  EXCEED 

C  64K  BYTES  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  lAlLED  BY  SUBROUTINES  E.EMOl.  E.EMOE. 

C  AND  ELEM07. 

DIMENSION  IPGKEDI*), IPGKl (3), IPGKEIE), IPGK7(3) 

CHARACTER*4  w^O, CALLER (3) 

DATA  CALMER/’ ELOI ' , ' ELOE’ , ' E.07'  i 
DA'A  NCLRS/3/ 

C 

C  here  is  'HE  INITIALIZATION  -CR  ElE''01 


DATA  IPGKl/3. 


3/ 
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HE  i^E 
DATA  IPGK2/3.3/ 


'“E.’<E  IS  :HE  initialization  z 
DATA  IPoK7/2,2,£/ 

DE^.TMINE  T'HE  CAllIvS  ROUTINE 
DO  5  I  =  1 , NCLRS 

IF(WH0.EQ.0A_29(I))  ISQINT  =  I 
CGNTIiVjE 


_  BRANCH  TO  CORRECT  INITIA.IZATICN  .CQA 

GOTOliO, 20, 70), IPCINT 

INITIALIZE  IPGKED  'OR  SuBROuTINE 
DO  15  I  =  1,  C 
IPGKED(I)  =  IPGKKI) 

CONTINLE 

RETURN 

INITIALIZE  iPSKED  m  SUBROUTINE 
DO  25  I  =  1,2 
IPGKED(I)  =  IPGK2(I) 

CONTI  fljE 
RETliRN 

initialize  ipgked  tor  subroutine 

DO  75  I  =  1,3 
IPGKEDd)  =  IPGK7(I) 

CONTINUE 


$LARGE 

*NGf.0ftTCfl_L5 

aij&RGL^INE  E_£MlS(VCC'RE,v^^nE,''/^-E£,'vS_£,  -'Et  •'EE.' 

Cr====r========r=r==r==rrr==.=z=================r======.====== 

C  TO  CLl'’''PiJTE  EwE^EN''  IN-0'?*'P”T'EnS  ECE  -.i.  “'''PEE  Z-  E-E^E'^TE 
0===============-=================-=--============="===:===— === 

IMPlICI’’  PEAL*8(fl-H,  0-Z) 

COWMCN/RGDT/IEL, ITPE, null ( 13) 

DI^€^lSIG^  VCOEE 1  *) ,  yPENE ( ►) ,  vPSE*  i *i ,  vDLE <♦ )  <  v-<;  ♦) ,  <  - 1 .  ♦/ 


GO  TO  (  10,  iO,  30,  40,  5o,  oO,  TO,  30,  90,  w^i,.  -z 

-  ELEMENT  OF  TYPE  1 

10  OflL.  ELEMOl ! vCuEE, VPENE, v^E-E, PDlE, vXE, v-E. 

GO  '0  900 

’ - ELE'fENiT  OF  type  E 

EO  CALL  EL&YOE  ( VCGRE.  OPRNE.  vPFEE.  VD.E.  YV.E,  VFE ) 

GO  TO  900 


C -  ELEMENT  OF  TYPE  3 

30  CALL  ELEMOu  YCORE,  VPRNE,  y pRE^,  VDi-t,  YKi,  V-c) 
GO  TO  900 

C - ELEMENT  CF  TVkE  4 

*0  CALL  ELEM04 (VCORE, VPRNE, VPREE, VDuE, P^E, vF; i 
GO  TO  900 

^ - £:.£MENT  OF  TYPE  5 

50  CALl  EL£M05(YCCRE,  VPENE,  v'PREE,  VD-E,  vYE,v-E) 
SO  TO  900 

C -  E-EMEnT  of  'YPE  6 

60  CALL  ELEMObfVCGRE,  VPRNE,  VPREE.  VD.E.YVE,  -.'FE) 
30  TO  900 

C - ELEMENT  OF  TYPE  7 


70  CAL..  ELEM07 ! VCORE,  VPRNE,  VPREE, VD.E,  VKE,  V-E) 
GO  TO  900 

c - EuE.me:yt  of  ^ype  3 

80  CALL  ELEM08 (VCORE, VPRNE,  VPREE. VOLE,  VKE, VFE) 
SO  TO  900 

C - ELEMENT  OF  TYPE  9 

90  CALL  ELEM09 (VCORE,  VPRNE,  VPREE,  VDLE,VKc.,  V-E) 
GO  TO  900 

C - a.£.MENT  O'  '’YPE  10 

100  CALL  ELEMiO (VCORE,  VPRNE,  VPREE,  VOLE,  VV.E.vFE) 
SO  TO  900 

C -  OTriER  ELEMENTS 

C  . 

900  RETURN 
E.ND 
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ILflRK 

tiM'FLGfl'^LHuLS 

‘3^E^R'JUT;^E  £•.£’‘01  ( v'^£££,  v'RN£,  v  jR££,  vl..£,  v-.r,  v-i 


C  QUADRATIC  £L£^^£1^'  FCt  A\ISG''SC^IC  nAR^C.\IC  ^RCo'-i'S 
C  IN  OS  3  jlitENSIdNS  : 

C  1  DIMENSION:  3  'iODES  £-£''£;r 

C  2  DINENSIGNS;  8  NQD£S  ISG“A^f,'^E’iI3  E-EyEM" 

C  3  DIl'ENSIONS:  cO  NCDhS  ISCPARAT'ETRIC  c.-.'-'. 

C  NUMBER  QF  INTE5RATIGN  PGlN'3  :  2  I'^  EACr  DIR£-_.Ij\ 

C  NUMBER  OF  DESSEE3  OF  FREEDOM  PER  ^-DE  :  1 

C  ELEMe^’T  MATRIX  OR  VECTOR  FORMED  BY  '-IS  SUBCRCC-RAv 
C  ACCORDING  TO  ICODE  vALjE  : 

C  ICCDE.EQ.i  RETURN  OF  PARAME'ERS 

C  ICODE.  ;;Q.  2  ;'v'Ai.UATt  !NT-RPLidA*lLiN  FUNCTIONS  AND 

C  NUMERICAL  INTEGRATION  COEFFICIEN'S 

C  ICODE. EQ. 3  ELEMENT  MA'RIX  (V-'E) 

C  ICODE. EQ. 4  TANGENT  MATRIX  (VK£)....NOT  wRI'  En. ... 

C  ICODE. EQ. 5  MASS  MATRIX  (VKE) 

C  ICODE.  EQ.  6  K.U  PRODUCT  (VFE) 

C  ICODE. EQ. 7  ELEMENT  '^OAD  (VFE).... NQT  WRI'TEN.... 

C  ICODE. EQ. a  PRINT  GRADIENTS 

c  Element  properties 

C  VPREE(i)  COEFFICIENT  DX 

C  VPREH(2)  coefficient  DY 

C  V?REE(3)  coefficient  dz 

C  VPR££(4)  SPECI-IC  hEA’  COPACrY  C 

IMPLICIT  REAL*a(A-ri,0-Z) 

CONMON/COOR/NDIM,  NNIU  (3) ,  FNUL.  (3) 

C0Mf1CN/RGDT/IE_,  ITPE,  I'PEl,  IGRct  IDLE,  ICE,  I-FnE,  .'-REl.  I'.l.,  ...ij,  1-3 
1  .ICODE, IDLED, INELO. IPSO 
COMMON/ES/M,  MR,  MP,  MDUMMY  10) 

DIMENSION  'vCORE (♦)  I  VPRNE  ( *) ,  »'PA££  ;  ,  vOlE  ♦  ■ .  ■•) ,  V-E  (♦) 

C. ......  CrARACTERISTIC  DIMENSIONS  OF  E.E''Ln' 

(VALID  UP  'Q  3  DIMENSIONS) 

D I  iCNS ION  'VCPG  ( I  ?G ) ,  v'K PG  ( ND I M*  i  '  0 .  '-C ;  *  ■ 

DIMENSION  VCPG(  SI.V-PGi  2'’, •'•O'  0 

DIMENSION  v:  (ndim*ndi'').v:i(nd;’'*'.d:m, 

DIMENSION  VJ  (  '9),VJ;(  5 

dimension  VNIX(  INE-*NDIM)  ,  vNI  ( '.  1 +NDI'* > *I . -ji  .  I Pb- iD  ’ 
DIMENSION  VNIX(  60!, ONI  (  lIE. '.  IPG-.EL-  I 

DATA  ZERO/0. DO/, EPS/ 1.3-6/ 

NUMBER  QF  5. P.  In  DIp-C'ION 

''’HiS  IS  COMMENTED  CL’  BElAlSc  QF  »;  rji-jc,/,  LO'^3- 
IlER  bug  which  WIlL  not  initialize  SlmRcE  ARFA''5. 

'!’HiS  ARRAY  IS  NOW  INITIALIZED  BY  A  "A, _ *0  A  D-*'''Y 

SUBROUTINE  INTPG  WHIC-i  EXISTS  SOLELY  ’[  iNriA.^E 


C 

C 

c 


c 

r 

c 

C++-f 

C++* 

C+++ 

C+++ 
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"HE  ur  3hl?3  r'j.'s  b  rGl’  . 

C 

u  DfiTn  I?GKcD/3.  3,  3^ 

C 

C  HERE  IS  "HE  CftLL  '0  GET  a:;Q^\,C  '^E  GGJ^'^I.ER  S.3 

CfiLi.  IMTPGCIPGKED, ’E-Oi’ ) 

all  OE  "HIS  WAS  SOLclY  "0  G:"  ARQL^i/  H-  .WlCROSur 
C''-++  CG^PILES  EliG 


IKE=IDLE*t IDLE+! ) /E 

L - CHOQSc  rLNCTION  TQ  BE  !;)(ECiJ"iD 

r 

GO  TQ  ( 100,  E'OO,  300, 4<Xi,  500,  bOO,  700,  flijO) ,  ICODE 

C -  RETUS\  ELEHEHT  ?QRA,hE"ERS  In  COM’’C.s  'RGDT' 

C 

100  GO  TO  (110,  lEO,  130),NDIi»! 
no  IDL£0=3 
INE.0=3 
IPG0=3 
RETURN 
120  IDL£0=a 
IN£.0=8 
IPS0=9 
RETURN 

130  1DLEO=20 
IN£:.0=2C 
IPG0=27 
RETURN 
C 

C - EVALLA-E  CDORQINATES,  WEIGHTS,  FUNCTIONS  N  AND 

C - THEIR  DERIVA’IVES  AT  G.P. 

C 

200  CALL  GAUSSdPGKED,  NDI'*,  v'T"-|  vE-.,, , -  -I 
CALL  N!01(VKPG,VNI) 

RETURN 
C 

C - COl^PUTE  ELEMENT  STIFFNESS  MA"R!x 

C 

C - INITIALIZE  OKE 

300  DO  310  1=1, IKE 
310  VKE(1)=Z£R0 

C - LOOP  CVER  'HE  INTEGRATION  POINTS 

INI=nlNEL 
DO  330  IG=1,IP3 

C - EVALUATE  THE  JACOBIAN  MATRIX,  I"S  INVERSE  A-'iD  I"S 

CALL  JACOB( VNI  ( INI ) , VCGRE, NDIM, INE_, VJ, VJl, jEtJ) 

IF (DETJ.lt. EPS)  WRITE (MP, 2000)  lEL. I3.CE": 


iOOO  FQf)l*H’(’  ♦**  ElEW  ‘ .  15. '  3.3.  ■.;3.'  lE'iJi^'.E; 

C -  DE'^J+wc'G'^" 

COEF=VC?G(IS)*DE^J 

C - iV^LlifiTc  EjNCTIuNS  DiND/DOt) 

CALL  DNID)!(WI(IM),7J:,ND:’'.  :^EL.'v>iIX) 

C - ACClji*!ljLflTE  Tc3'*!S  OF  ’i'  ’Ih  ■'Ix 

IK=0 

DO  320  J=1,IDLE 

DO  320  1=1. J 

!1=I 

I2=J 

C=ZEf5C 

DO  315  ij=i,md:m 

0=0+^!  X  ( 1 1 )  tON!  X  ( 12)  *VPREE  i  I  J) 

!!=Il+iDLE 
315  I2=I2+IDlE 
IK=IK+1 

320  0KE(I;-<)=V-<E(IK)+C*CCEF 

C - NEXT  G.P. 

330  INI=INI+(NDI>t+l)*INtL 
RETURN 
C 

C - EVALUATE  ELEVEN’  'Af.SEN'  TA’R’X 

C 

400  CONTINUE 
RETURN 
C 

C - »«)SS  TATRIX 

C 

500  DO  510  1=1, IKE 
510  VK£(I)=2ERQ 

IF(V3REE!4).EQ. ZERO) RETURN 
IN  1=0 

DO  530  10=1. 133 

C -  evaluate  '-£  JACCBIAN  MATRIX 

I1=INI+INEL»1 

call  jacqbivn:  ( : i ) , ' xiore, '.dit,  I'.e.,  vJ,  vji, detj) 

C -  COMPU^'E  ’■re  HEI3F' 

COEF=VC?G ( IG) ♦DET;*V3REE (4 1 

C - TEtWS  OF  THE  "ASS  TA'RIX 

IK=0 

DO  520  J=1,IDLE 
DO  520  1=1. J 
IK=IK4l 
n=INI+I 
I2=INI+J 

520  VKE  ( I K )  =vK£  ( I K )  ♦VN I  ( 1 1 )  ♦VN I  ( 1 2 )  CCE" 

530  INI=INI  +  (ND:«+:)»INE1. 

RETURN 

C 

C - EVALUATE  THE  £lE''E,v,'  REEIDLA^ 
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c 

600  DO  605  1=1,1  NEl 
605  VFE(:)=ZERO 
INi=l+IN£L 
Du  640  IG=l, IPG 

C -  EVALlA’E  ’HE  JACOBIAN  ^ATSIK  AND  T-E 

CAL^  JACOB ( VN 1 1 : N I ) , VCORE, nD I M, I SEl,  V J,  VJ 

call  DNiDxivNi (:ni),vj:,no:“. 

C - CO>'PliTE  THE  JDEF-ICIEN’ 

COEF=VCPG(IG)*DE’J 

C - VPREE*B*VDL£  PROD'XT 

11=0 

DC  620  i=i,nd:m 

C=ZERQ 

DO  610  J=l,  INEI. 

11=11+1 

610  C=C+VNIX(:;)*VDCE{J) 

620  VJ(I)=C»caEF*VPREE(:> 

C -  (6T)*VJ  SRODUC" 

DO  530  I=1,:n£L 
Il=!-INtL 
DO  630  J=1,NDI'« 

11=11+1 NEL 

650  VFE ( I ) =VFE ( I) +VN I X ( 1 1 ) * V J i J ; 

64‘.)  INi=INI  + (NDI‘'*+1 )  ♦INEo 
RETURN 
C 

C - rOACOA'E  FE 

C 

700  CONTINUE 
RETURN 
C 

C -  EVAl-A’E  And  PRIN*  SRADIEN’3  a*  3. p. 

c 

300  WRITE (’‘PicOiOi  IEl 
2010  FORfATi//’  GRADIENTS  IN  EX^EN’ 
IDECL=(ND!.'t+l)*INEL 
INI0=1 
INI=i+INEu 
DO  830  IG=1, IPG 

CALL  JACOBiVNI ( INI ) , VCCRE, NDIN,  INEL,  VJ, VJ 
CALL  DNIDX(VM'IM),VJI.NDiN,  INEL.Wix; 

C - EVALUATE  the  COORDINA-'ES  0=  ’AE  G.  P. 

DO  803  I=1.NDIT 
803  XYZ(I)=ZERO 
!C=1 
IO=iNlO 

DO  807  IN=l,ir€L 
C=VM(IO) 

DO  805  '  =  1,NDI>1 
xyz(i)=xyz(i)+'>v'C0RE':iC) 


MOi'vXP'j, 


■J  ivfiLLA  E  "i'E  IN'EEPjlP'IlN  ■.Nl'IjNS  \  T-EIR  DEEIVP'I.ES 


jiV/  /C  i 

AIO  D!N)/D 

(rra,  2v 

Tv 

-IWERSE  “E’^ED 

IaKjT 

- 

vHyS 

;b  A  A.-.-...'  N  .3 

.  J 

t3  3VH-_LA’ij 

PG 

VJ’'^3ES.  j’ 

-ul 

2 

I\EL 

V  !w«r5  2- 

TlNC’IELS  N  (OR 

OF 

YDDES)  I yE-. EE. 5 

c 

\J~y 

YuYBER  CF 

GI^'ENSIONS 

YDI'^.EQ.E 

'T: 

'J--  -'■w 

* 

c 

vM 

-.YC’ID?iS 

Y  A\D  DESIvA’IV: 

:q 

:y^n\/c:cR/\jy.,  nmlli3)  .  fnulice) 

:;’'’'G\/^ED’/:Ei.,  tpe,  :’?ei,  :s’e,  idle,  iee,  :==le,  : -eee,  :\Eu.  idee. 

:yK\/^wjv<s: ,  v^,  <=:o,  kdee,  k:.  e\l-l  (‘eo)  .  :\l-_ 

DI''*£\3IlN  'vK?5(*),  vM  (♦; 


. -’j 


a  VISES  SE"SE>iCE  SELASE  E-i/EL 


...  :Ni';’''QT:D>;s  sela’es 's 
(INE..£3.a  \DI>!.£5,£) 

d:«ens:dn  vKsi !sd:“»ine.), •(£p{\D:''*iNE.),;-{SEE(>ii'«') 

DI'-^SMN  VKSK  :b).KcX3(  16).'<DER(  E) 

d:''En3:;\  v:\  !i'ts.'HN£.).v3;:Ni,),A;::sE-; 

DIMENSION  vS\  (  64i,VC(  8),r<-(  3) 

NGDO.  I'CEDIVA'ES  Cf  ^'-E  ErEEZ;viEE  Z'^^rv 

Oa'3  IDESS/i/ 


'-IS  IS  CC'‘'''Es*ZD  EL’  ZZES-SE  E-  rS  -EE’ES.'.  EE''^- 
I-Ev  sL3  WHIE-  ».:Lu  \C'  IM’ISLIZE  JLfiRGE  ASSAYS. 

'-EEE  ASSAYS  ASZ  SG«  IM’Ifi.IZED  BY  A  CA:..  ’E  A  D'jY«Y 
SucADL’lvE  INI'M  W-ICH  EXIS’S  SELELY  TO  INI’IfiLIZE 
T^ESE  ’>»Q  ASSfi'^S. 

E'3'5  v'-.S!/-!. do, -1. DC,  *O.DO,-;.DO.  +l.DO,"!.DO,  +I.EE, *0. DC. 

♦l.DC.-l.DO,  +O.SO.+;.DO,  -l.DO.i-l.DO.  -1. jC.*0.D'0/ 
’^NC'^IA.  ZX3L^E\’S  C-  ’-E  PClVNOriA:.  BASIS,  “'AX-DESSEE 
DA’h  YEX3/0,0,  1,0,  0,1,  i.O,  l.I,  O.c.  £.1,  l.E/ 

^ESE  IS  :-E  EAL.  ’G  get  5?p-vg  -;.t  -;cSDSQ” 

EGtaIlES  R'G 

EAL.  ;Nr\£(vA5:,YEX3; 


'E+-t-f 

c*+* 


a..  O’  "'-IS  ^AS  SEEN  Tr  gh’  -..r 

CGT0ILE5  bug. 


IDE3=IEEGS 
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—  -Z'^zS.  .\. 

{  ^L’  j^Pyi'Y  ~X~'J  PV=-v?RE|i(m.'  i 

'X=ZIiC 

^'^=-v-9E£u) 

Ju  Z'.'J  1=1,  lb 
',F-;;:;=2ERj 

;jEC.=i'«Di'^i;*:NEL 
Da  730  '6=1, IP3 

;p_  :scG£  !vn:  ! :  i+:ne-j  ,  vCCRe,  \3:y,  ixe,.  vj,  v ji.  de'J) 

DX=VC?3{IS)*DE'J 

Dv=Dx*RY 

DX=DX*?X 


DD  730  :M=1, iNE_ 

'yFE(I3)=VFE(!3)+DX*VNI(:2) 

'.'EE  ( !3+l )  =‘fz  ( :3+i )  +DYtV»iI  (13) 

:3=:3-^i 
730  :3=:3+3 

730  :i=:i+:d£Cw 

•E'6R\ 

: -  EVa.uflTE  AND  PRIM"  S’RESSES  fi*  3.  ?. 

8C0  ^RI'E'^P, 30801  lEL 

3060  F0fWAT(//'  STRESSES  IN  E.Ei'tEN''  ’.15/ 

1  ’  3,G.’.7X,’X’,llX.’Y',9X.’E3SX’.3X,’E?SY’,7X,'3AY'Xy’,a 

3  6X,’SIGY'.7X.’*A3XY’.6X,'TrA’/  7iX  ,’S:G1’.6X.’SI53’.7X 

1  I  ■ 

V  '  ' 

r; -  rnsy  D 

DfLL  DOSCvPREE.VDE) 

C - -205  OVER  TAG  G.  ?. 

i;=i+inE- 

DO  8zO  13=1, I?G 

; -  EVAi-OATE  THE  JACOBIAN 

:Au_  JACOB  ( VM  ( 1 1 1 ,  VCCRE,  \D IY!,  INE.,  VJ.  VJI,  DE'Ji 

: -  EVALUATE  "UNCTIONS  D!V!)/D(X) 

UA1_  DNIDX (V\: (I l; , vJl, ^D:'^ I\EL, VMX) 

; -  C-Y'Fl’E  strains  and  OQORDINA'ES  AT  G,?. 

£5sx=z:rc 

EASVrZERC 

5A''XY=ZERG 

X=ZER3 

^=Z370 


o:  810  !N=:.:\E- 


; -  IVALlA"  ’-E  E-E'-EV*  EEEIE-A- 

: - 'DR"  "fi'RIX  D 

500  CPU  DC2(VCREE.vD£) 

: - IM'IA.IZE  >E  ’ESIDCPL  VEC'CR 

DC  610  :d=i,:dle 
510  v'E;:D)=ZERC 
-  2VSR  'H-E  '3.'^. 

::=i+;me. 

jG  640  13=1,  IPG 

C -  EV^-LP'E  ''"*E  JACOBIS'i 

CP.L  JPCCB(v^'I  Cl),  vCORE.  NDI".  INF.,  VJ.  vJl.  CE~:) 

: - EvPUP'E  -CNC'IDNS  D!NI)/D()() 

CPU  DNIDX (VNI C i ) ,  VJi, NDI'!.  INEL. Wn ) 

: - EVP-LCPTE  S'RPINS  AND  STRESSES 

EPEX=ZERa 

EPS''=ZERC 

3A>'<V=ZERC 

;d=; 

:G  5£iO  :U1,  INEL 
u\=vd.E!:d) 

''•=OD_Z  ( ID+1 ) 

;i='AI<;I\) 

.■N1=IN*I\E_ 

;e=v\;x(:ni) 

5:E<-EP3X+C1*(jN 
EPrY=EPSY*CE*V'N 
>-  ''\V=-,ai'XY'Cl  ♦VN+C2tL'N 
611  lC=ID*c 

.  ;='/w-3 1  IS)  ♦Dt :  u 

Ci=*'DE(2)*Ci 

:3=vDE(9)*Cl 

:iUDE!l)»Cl 

6:3)!<l*EPSX+C2*£ySY 

3:3Y:=C2»EPSX+C1*EPSY 

'P',XY=C3*6P«XY 

; -  cQs:,  the  residual 

CO  630  ;n=1,INEL 

ci=vn:x(in) 

■A1  =  IN+INEL 
:3=vmx!:ni) 

v"ECDi=V=E(:D)*Cl*S:3X+C2**P'jXy 
v-E  ( ID+l )  =VFE  ( ID+1 )  +CE»SIGY+i:!*TAUXY 
53';  :D=:D+2 

6^0  :i=:!+3*IN£L 
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•i'  va’:};)( 


:md)( (  ;ni  ( h ; . v:;, sDir,  :\el. vnix 
(vs:x(:).:= 
:c;0  -GR^STi/'  vMX’/(:x,6e;£.5); 

_ 20c’  ( V\  G  X ,  I  ‘.E_,  VBE  i 

:-i'.3E.i)  i.lirEi''?,£070)  (VBEO.I^l 
im  £’/aX.10ElS.5)) 

C.SL^  3  CE ;  vKE.  OrE,  VDE 1 , 1  D-.E,  I  ''XfiTD.  SS  v' 
:c-.  .1-1 '  ^  \  ■ 


-  E/'^JJfiTE  '"■^c  E_;?^ENT  TANGEM 

-00  CCNTISoE 
5E'.fiN 

: -  Evaluate  t:'E  ^ass  ma'aix 

:00  DG  510  1=1, 126 
:i0  VKE(I)=Z£Ra 

; - L0C3  OVER  T-E  G.  3. 

IGl-l-NDII'-l 

l:E:w=;N0i>(+l)♦!^^EL 

:i=>:nei 

:c=c 

GG  550  !G=1,13(3 

;a.l  :accb(vni (1 1) . 'vcqre,  im., vj, 

D=VCPG(IG)*DETJtV3REE(4) 

; - ACCijn;La’’E  •'ass  'er’is 

:dl=o 

DO  540  :=!,i\EL 

:j=:2*: 

jo=:*iD'.»(;dl*i)/2 
GO  530  1=1.: 

::=:2+: 

:=vM;::)*vNi(jj)*D 

VKE!J0)=Vy.£(J0)+C 

:''\d:''.e:.i)  sg  *o  530 

;i=jo+:dl+2 

DG  520  ::=i,:d:'!! 

v'«E!:!)=VK£iJi)»C 


'"'E  'lEEGbE- 


X  "G  :: 00, -00,300, 400, 500, SO0,7OC. 300), IG-DE 
: -  3E'-3\  ElI»I£V'  PQiA?rE~3S  IN  GON^'CN  'RjD"’ 


;:o  ;;-Eo=i6 

INE.0=8 
P30-5 
C  4"ijpn 

r 

2 -  iV^L-A  £1  ‘33j3DINA"*E5,  viiibH  S,  -bNu  -DNd  N  PNJ  ■-iIt 

C -  CEAIVRTIVE5  AT  3,:. 

r 

ac  Cfl-,.  GSliSS!i;3KED,NDiy,V<-5,yC4G,  1^5) 

:F(v,.t".E)  GO  tq  £20 
)<3irE('^P,3000;  IPG 

20:;«)  3fl|j55  .-QIN'S’ /lOX,  ’  VCPG' ,E5X,  ’  VKPG’ ) 

:!>i 

DC  £10  13=1,133 
I1=IC+NDI^'-1 

Ai^I'Ec'PiEOlO)  yCPGCj),  (VH?'3(I),  1=10.  ID 
£10  IO=IO+NDI''' 

10 10  Tc^MfiT  (IX,  '20. 15, 5X,  3F20. 15) 

£20  CRLl  NIC2(VK?G,VNI) 
i.Tf''.  2)  FE'UFN 

:i=3*IN£^'*I03 

«3r2(vo,2020)  (w:(i),:=!,;i) 
lOcC  T,2i'yc:T(/.  CySC'IGNS  N  AND  DERIVATIVES’/  (iX,SE12.5)) 

'E’jRN 

: -  EVPLJATE  l.E^ENT  3*’TT\iSS  ’“A'RIX 

: -  initialize  vke 

300  CO  310  1=1. 136 
310  V-lE(j)=ZERG 

r -  rPRft!  irfl'Six  D 

CAL.  DO£'VPREE,VDE) 

IT('fl,G£.2)  iiRrE(«P.2030)  (VDEd).  1=1.5) 

E'l'SO  Tj=>ift:(/-  w)T9IX  D’/1X,5E12.5) 

2 -  2233  3_ 

I1=!+InE. 

DC  330  :G=1. IPG 

C -  EvAL.ATE  T’-E  JPCCSIAN,  1*3  INVERSE  AND  PS  uE”E5''INA'\' 

CA.l  JACGB ( VNI  (ID,  VCORE.  NDI'',  INEL.  VJ.  VJl.  DETJ) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 


c, 

c 

c 

c 


c 


c 

0+++ 

C-H-f 

C+++ 

C-H-f 

C+++ 

c 

c 

c 

c 


SUBROUTINE  E-£i'Oii'vCCRE,  v;=\I, 


8  NODES  QUADRATIC  ELE'^ENT  FOR  E  DI^'ENSICNAi.  E_.-.S'ICI'I’t 

EVALUATE  ELEMENT  INrGRMA'IC^;£  ACCORDING  "  IZODE  VAL.E 
ICODE=l  ELEMENT  PARAME'ERS 

IC0DE=2  INTERPOLATION  FUNCTIONS  AND  SAUSS  COEFFIOIE.X’S 

IC0DE=3  STIFFNESS  MATRIX 

ICODE=A  TANGENT  MATRIX  . . .  NOT  UfiIT"EN  . . . 

ICDDE=5  MASS  MA'RIX 
IC0DE=6  RESIDUALS 
IC0D£=7  SECOND  MEMBER 
ICQDE=a  EVALUATE  AND  PRINT  STRESSES 
ELEMENT  PROPERTIES 

VPREE(l)  YOUNG’S  MODUuS 
VPREE(E)  POISSON’S  COEFFICIENT 
VPR£E(3)  .EG.O  PLANE  STRESS 
.£0,1  PLANE  STRAIN 
VPR££(4)  SPECIFIC  MASS 


IMPLICIT  REAL*8(A-H,0-2) 

CQi'SMON/COOR/NDIM,  .NNULL(3) ,  FNULL(3) 

CQMMON/ASSE/NSYM, NFILLR(3) 

CQW10N/R6DT/IEl,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INE.,  IDEG,  PS 
,  ICQDE,  IDLED, INELO, IPSO 
COMMON/ES/M,  MR, MP, MDUMMY ( 10) 

DIMENSION  VCQRE(*),VPRNE(*),VPR£E{*),VDL£(*),VKE!*),VFE(t) 

..  CHARACTERISTIC  DIMENSIONS  OF  THE  ELEMENT 
DIMENSION  VCPG(  IPG),VKPG(NDIM*!PG),VDEl (IMATD**£) 

DIMENSION  VCPG(  9),VKPG(  18),VDEl(  9) 

DIMENSION  VBE  (IMATD«IDLE), VDE  (IMATD«*E), VJ  ;ND:M*NDIM), VJl ;NDIK* 
DIMENSION  VBE  (  48), VDE  (  9),VJ  (  4),VJl(4j 

DIMENSION  VNIX<  INEL*NDIM),  VNI  ( (i+NDIM)*INEL»IPG),  IPGKEDWDIM) 
DIfENSION  VNIX(  16),VNI(  216),IPGKED(  2) 


DATA  ZERO/0. DO/,  DEUX/2.  DO/, X05/0. 5D0/, RADN/, 57295779513082302/ 
DATA  EPS/l.D-6/ 

SQRT(X)=DSQRT(X) 

ATrtN2(X,Y)=DATAN2(X,Y) 

DIMENSION  OF  MATRIX  D 
DATA  IMATD/3/ 


THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  FORTRAN  COMP¬ 
ILER  BUG  WHICH  WIL.  NOT  INITIALIZE  $LARGE  ARRAYS. 

THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  TO  A  D'JMMY 
SUBROUTINE  INITPG  WHICH  EXISTS  SOlElY  "Q  INITIALIZE 
THE  NUMBER  OF  SAUSS  POINTS  FOR  THE  CALLING  ROU'INE. 

DATA  IPGKED/3,3/ 

)€RE  IS  THE  CAa  TO  GET  AROUND  ’HE  COMPILER  BuG 
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KE)(?(I)=KE)(P3(:) 

5  CONTINUE 

C - EVflLJfl'E  ’-I  PN-INVER3E  ■'■ATRIX 

COLL  PNINV (VK3I, KEXP,  VP, '<1, VPN) 

C - EVPLOftTE  N,D;N)/:(KST),L(N)/D(E~S)  P^  .3_3_ 

iin 

IE=I 

DO  10  IG=1,:P6 
KD£R(1)=0 
KDES(2)=0 
KDeR(3J=0 

CALL  NI ( VKPG( 1 1 ) , KEXP, KDER,  VP, VPN,  VNI (12) ) 
I2=I2+!NEL 

CALL  NI  (VKPG { 1 1 ) ,  nEXP,  .'DER,  VP,  VPN,  VNI  (12) ) 
I2=I2+IN£L 

IF(NDIN.EQ.1)  50  TO  10 

KDER(1)=0 

KDER(£)=1 

CAU  Nl  ( VKPG  ( 1 1 ) ,  KEXP,  KDER,  VP,  VPN,  VM  (12) ) 
I2=I2+IN£L 

IF(NDiN.EQ.2)  GO  TO  10 

KDER(2)=0 

KDER(3)=1 

CALL  NI(V"KP5(I1),KEXP,KDER,VP,VPN,VNI(I2)) 
I2=I2+If€L 
10  I1=I1+NDIM 
RETURN 
END 
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DIi€NS!ON  KMIM.) 

DIMENS'CN  HU  iv) 

CHfiSACn^ISTICS  A'xD  3  DU■E^5;G.^^.-  ^E-EHE'-CE  E_E''E^ 

DhTA  IDtGR/2/ 

THIS  IS  COWENTED  OU’  EcCAliSE  CF  "'r-E  .*'5  -C3TSP\ 

ILER  BUG  WHICH  WLE  NOT  INITIPuIZE  OR3E  fiRRflVS. 

THESE  ARRAYS  ARE  NCW  INITIALIZED  BY  A  CAL.  Tj  A  DCJ-Y'' 
SUBROUTINE  INI’T^l  WHICH  EXISTS  SOLB.Y  TO  INriALIZE 
THESE  SIX  ARRAYS. 

DATA  YKSI1/-1. DO, 0. DO, 1. DO/, KEXAl/0,  !,£/ 

DATA  VKSI£/-1.D0,-1.D0,  +0.yj,-l.D0,  <-i.!)0,-L00,  i-;.DO,»O.DO, 
I  +l.DO,+l.DO,  +O.D(),+I.DO,  -!,DO,+l.DO,  -l.DO,*O.DO/ 

DATA  KEXP2/0,0,  l,0,  0,i,  2,0,  :,i,  0,2,  2.1,  1,2/ 

DATA  VKSI3/-i.DO,-l.DO,-l.DO,  +0. DO, -1. DO,-!. DO, 

1  +!.DO,-t.DO,-l.DO,  +l.DO.Ht.DO,-i.DO. 

2  +1. DO, +1. DO,-!. DO,  >O.DO,+!.DO,-!.DO, 

3  -!.DO,+!.DO,-i.DO,  -i. DO, +0. DO,-!. DO, 

4  -!.DO,-!.DO,+O.DO,  ♦!.D0,-!.DO,+O.aO, 

5  +!.DO,+!.DO,+<).DO,  -!.DO,+l.[iO,*('-30, 

6  -!.DO,-i.DO,+!.DO,  Hi.DO,-!.DO,'r!.DO, 

7  +!.DO,-!.DO,+!.DO,  +!.DO,-K).DO,+!.D(i, 

8  +!.D0,+1.D0,+!.D0,  +0.D0,+!.D0,+1.D0, 

9  -!.D0,+!.D0,+1.D0,  -l.DO,+O.DO,+l.DO/ 

DATA  KEXP3/0, 0,0,  1,0,0,  0,1,0,  0,0,!,  !,!,!, 

!  !,!,0,  0,1,1,  1,0,1,  2,0,0,  0,2,0,  0,0,2, 

2  2,1,0,  2,0,1,  2,1,1,  1,2,0,  0,2,1,  1,2,1, 

3  1, 0,2,  0, 1, 2,  1, 1, 2/ 

HERE  IS  THE  CALL  tq  EET  AROUND  T-iE  MICROSOFT 
COMPILER  BUG 

CALL  INITNl (VKSIl, KEXPl, VKSI2, HEXPE, VHSI3, KEX33) 

Aa  OF  THIS  WAS  SIMPLY  TO  SET  AROUND  T-iE 
MICROSOFT  COMPILER  BUG 


ID£B=IDEGR 

—  SELECT  TABLES  VHSI  AND  KEXP  ACCORDING  TO  MDIM 
I1=NDIM*INEL 
DO  5  1=1,11 
GO  TO  (1,2,3),NDIM 
VKSI(I)=VKSI1(I) 

K£XP(I)=KEXP1(I) 

SO  TO  5 

VKSI(I)=VKSI2(i) 

KEXP(I)=K£XP2(I) 

GO  TO  5 

VKSI(I)=VKSI3(I) 


805  IC=ICtl 
807  I0=I(>t-l 

C -  EVft.LHTE  'hq  SEA'IIn' 

!1=0 

DO  as-j  1=1,. '.DI'* 

C=ZERQ 

DO  310  J=1,IDlE 
i:=:i+i 

810  C=C+0NIX ( 1 1 ; *vDLE ( J) 

880  vJ(I)=C»VPREE(!) 

C -  PSIN’  'HE  GRPDIENT 

WRITE  (HP,  8080)  IG,  !(yZ(I),  I=1,NDI.») 

8080  FQSMfiT(5X,'?.G.  C.GGSD.-.P'ES  :',3E18.5j 

WRITE(HP,8085);VJ!I),:=i.vDI'-'; 

8085  FORMAT (15X, ’GRADIENTS  :’,3E18.5) 

INIO=INIO+IDEC^ 

830  INI=INI+IDECL 
WRITE (Mh, 8030) 

8030  FORMAT!//) 

RETURN 

END 


SUBROUTINE  NIOl (VKPG, VNI) 

C  TO  EVALUATE  THE  INTERPOLATION  FUNCTIONS  AND  THEIR  DERIVATIVES 

C  D(N)/D(KSI)  D(N)/D(ETA)  BY  THE  GENERA.  PN-INVERSE  lE’-HOD 

C  FOR  1,8  OR  3  DIMEN'SIONAL  QUADRATIC  ELEVEN'S 
C  INPUT 

C  VKPG  COORDINATES  AT  WHICH  N  IS  TO  BE  E/A-.UA'ED 

C  IPG  NUMBER  OF  POINTS 

C  INEL  NUMBER  OF  FUNCTIONS  N  (OR  OF  NODES)  I.NEl,.E.80 

C  NDIM  NUMBER  OF  DIMENSIONS  NDIM.LE.3 

C  OUTPUT 

C  VNI  FUNCTIONS  N  AND  DERIVATIVES 

IMPLICIT  REAL»8(A-H,0-Z) 

COMMON/COOR/NDIM,  NNUL^  !3) ,  FNULi.  (3) 

COMM(W/RGDT/IE.,  ITPE,  ITPEl,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INE.,  IDES,  IPG 
1  , NULL (A) 

COMMON/TRVL/VKSI,  VPN,  VP,  ,KEXP,  KDER,  Ki 
DIMENSION  VKPG(*),VNI(t) 

DIMENSION  VKSI 1(3), KEXPI  !3) , VKSI8( 16) , KEXP8( 16) , VKSI3 (60) , 

1  K£XP3(60) 


C 

C .  INFORMATION  TO  DEFINE  THE  3  REFE.RENCE  EuE^ENTS 

C  (IftL.LE.80  NDIM.LE.3) 

C  DIMENSION  VKSI(NDIMhHNEi.),KEX?(NDI»'*INE_),KDER(NOIM) 

DIMENSION  VKSI !  60),KEXP<  60),KDER(  3) 

C  DIMENSION  VPN  (INELtINEL),VP(IN£L) 

DIMENSION  VPN  (  AOO),VP(  80) 


264 


INITIAL  DISTRIBUTION  LIST 


Defense  Technical  Information  Center 
Cameron  Station 
Alexandria,  Virginia  22314 

Library,  Code  0142 

Naval  Postgraduate  School 

rionterey,  California  93943 

Department  Chairman,  Code  69 
Department  of  Mechanical  Engineering 
Naval  Postgraduate  School 
Monterey,  California  93943 

Professor  Gilles  Cantin,  Code  69Ci 
Department  of  Mechanical  Engineering 
Naval  Postgraduate  School 
Monterey,  California  93943 

LCDR  Rehe  E.  Ruesch 

Naval  Ship  Repair  Facility 

Subic  Bay,  Box  34 

FPO,  San  Francisco,  CA  96651 

Professor  Young  Shin,  Code  69Sg 
Department  of  Mechanical  Engineering 
Naval  Postgraduate  School 
Monterey,  California  93943 

Professor  K.  J.  Bathe 
Mechanical  Engineering  Department 

M .  I  .  T  . 

77  Massachusetts  Avenue 
Cambridge,  Massachusetts  02139 

Professor  Edward  L.  Wilson 
Structural  Engineering  Division 
Civil  Engineering  Department 
University  of  California  (Berkeley) 
Berkeley,  California  94720 

Dr.  Gilbert  Touzot 
U.T.C 

Uni''^ersity  de  Technologic 
60206  Compiegne  Cedex 
France 


No.  Copies 


278 


Professor  Guri  Dhatt 

Centre  Technique  de  1 ' Informatique 

Universite  Laval 

Quebec,  Prov.  de  Quebec 

Canada,  G1K7P4 

Dr.  Jean  Louis  Batoz 

U.T.C. 

Universite  de  Technologie 
60206  Compiegne  Cedex 
France 

Professor  G.  N.  Vanderplaats 
Department  of  Mechanical  and 
Environmental  Engineering 
University  of  California 
Santa  Barbara,  California  93106 

CAPT  G.  M.  Lachance,  USN 
Code  SEA  56 

Naval  Sea  System.s  Command 

Naval  Sea  Systems  Command  Headquarters 

Washington,  DC  20362 

CDR  W.  L.  Marsh,  USN 
Code  SEA  500 

Naval  Sea  Systems  Command 

Naval  Sea  Systems  Command  Headquarters 

Washington,  DC  20362 

CDR  James  Buckingham 
Code  SEA  OOC 

Naval  Sea  Systems  Command 

Naval  Sea  Systems  Command  Headquarters 

Washington,  DC  20362 

LCDR  Lael  R.  Easterling,  USN 
4243  N.  W.  54th 

Oklahoma  City,  Oklahoma  73112 

LT  John  H.  Preisel,  Jr.,  USN 
922  Bernard  Road 
Peekskill,  New  York  10566 

LT  Joseph  L.  Paquette,  USN 
19311  142nd  Place  SE 
Renton,  Washington  98055 

Mr.  Ray  Mallory 
Code  753 

Naval  Coastal  Systems  Center 
Panama  City,  Florida  32407 


Mr.  K.  Calvin  1 

Code  SEA  521 

Naval  Sea  Systems  Command 
Naval  Sea  Systems  Comm, and  Headquarters 
Washington,  DC  20362 

Mr.  J.  Kenworthy 
Code  SEA  5244 
Naval  Sea  Systems  Command 
Naval  Sea  Systems  Command  Headquarters 
Washington,  DC  20362 

Mr.  R.  A.  Langworthy 
Applied  Technology  Laboratories 
U.S.  Army  Research  and  Technology  Laboratory 
Fort  Eustis,  Virginia  23604 

Mr.  E.  M.  Lenoe 

Army  Materials  &  Mechanic  Research  Center 
Arsenal  Street 

Watertown,  Massachusetts  02172 


Dr.  H.  B.  Osborn 
6337  N.  Pomona 
Tucson,  Arizona  85704 


